[Redefine `toplevel' as a `task-component'
clinton@unknownlamer.org**20090216054113
 Ignore-this: 5c00a892733d1f70fb6eb3310c695c23
 Goodbye annoying call link
] hunk ./src/web-admin.lisp 132
-(defcomponent toplevel (standard-component)
+(defcomponent toplevel (task-component)
hunk ./src/web-admin.lisp 135
-(defmethod render ((c toplevel))
-  (<:p (<ucw:a :action (call (wrapped-class c))
-	       (<:as-html "Call"))))
+(defaction start ((c toplevel))
+  (loop (call (wrapped-class c))))