Index: openacs-4/packages/acs-tcl/tcl/security-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/security-procs.tcl,v
diff -u -r1.36 -r1.37
--- openacs-4/packages/acs-tcl/tcl/security-procs.tcl	27 Jan 2005 21:35:56 -0000	1.36
+++ openacs-4/packages/acs-tcl/tcl/security-procs.tcl	8 Feb 2005 11:07:48 -0000	1.37
@@ -1141,6 +1141,12 @@
 } {
     if { [empty_string_p $session_id] } {
         set id [ad_conn session_id]
+        
+        # if session_id is still undefined in the connection then we 
+        # should just return the default
+        if { [empty_string_p $id] } {
+            return $default
+        }
     } else {
         set id $session_id
     }