move reset calls forward

scheme/httpd/surflets/surflet-handler.scm

@@ -65,14 +65,12 @@
 (define (launch-new-instance full-path req)
   (let ((instance-id (generate-new-instance-id))
 	(plugin (get-plugin-rt-structure full-path)))
+    (save-instance! full-path instance-id)	; make entry in instance-table
     (reset
      (begin
-       (save-instance! full-path instance-id)	; make entry in instance-table
        (register-session! instance-id 'no-return)
        (with-names-from-rt-structure 
 	plugin plugin-interface 
-	;; MAIN may return in another thread, so we have to lookup 
-	;; return continuation explicitly
 	(main req))))))
 
 ;; try to get continuation-table and then the continuation
@@ -97,7 +95,7 @@ You can try starting at the <A HREF=~a>beginning</a>."
 		 (begin
 		   (register-session! instance-id 'no-return)
 ;		   (error "This may never return." ; for debugging
-			  (resume req)))))))))))
+		   (resume req)))))))))))
   
 	
 (define (send/suspend response-maker)