From 3fcaa9923947c0937c478a62c73bc228f7707f2c Mon Sep 17 00:00:00 2001
From: interp <interp>
Date: Fri, 27 Sep 2002 15:04:36 +0000
Subject: [PATCH] register session before loading plugin to be able to create
 callbacks in plugin

---
 scheme/httpd/surflets/surflet-handler.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scheme/httpd/surflets/surflet-handler.scm b/scheme/httpd/surflets/surflet-handler.scm
index 204f90a..17b3cf5 100644
--- a/scheme/httpd/surflets/surflet-handler.scm
+++ b/scheme/httpd/surflets/surflet-handler.scm
@@ -75,6 +75,7 @@
 				     (make-lock)          ; continuation table lock
 				     (make-thread-safe-counter))) ; continuation counter
 	  (release-lock *instance-table-lock*)
+	  (register-session! instance-id 'no-return)
 	  (let ((plugin (with-fatal-error-handler*
 			 (lambda (condition decline)
 			   (instance-delete! instance-id)
@@ -83,7 +84,6 @@
 			   (get-plugin-rt-structure path-string servlet-path)))))
 	    (reset
 	     (begin
-	       (register-session! instance-id 'no-return)
 	       (with-cwd
 		servlet-path
 		(with-names-from-rt-structure