[Fix /archive entry point for ucw-core
clinton@unknownlamer.org**20081203230234] hunk ./src/entry-points.lisp 27
-	(let ((self (container.current-component (window-body window))))
-	  (call 'frontend-show-viewer
-		:show (car (get-shows-by 'show-date
-					 (encode-universal-time 0 0 0 day month year)
-					 nil
-					 :limit 1))))))))
+	(call-component (container.current-component (window-body window))
+			(make-instance 'frontend-show-viewer
+				       :item (car (get-shows-by 'show-date
+								(encode-universal-time 0 0 0 day month year)
+								nil
+								:limit 1))))))))