[Change admin-show-chooser to ranged-
clinton@unknownlamer.org**20080114211827] {
hunk ./src/web.lisp 7
-  (:default-initargs :viewer 'full-show-viewer))
+  (:default-initargs :viewer 'admin-show-viewer))
+
+(defcomponent ranged-admin-show-chooser (admin-show-chooser
+					 standard-ranged-show-list)
+  ())
hunk ./src/web.lisp 21
-(defcomponent admin-show-viewer (show-viewer)
+(defcomponent admin-show-viewer (full-show-viewer)
}