Index: openacs-4/packages/dotlrn/www/admin/user.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/user.tcl,v
diff -u -r1.25 -r1.26
--- openacs-4/packages/dotlrn/www/admin/user.tcl	15 Apr 2009 18:01:16 -0000	1.25
+++ openacs-4/packages/dotlrn/www/admin/user.tcl	15 May 2009 22:38:13 -0000	1.26
@@ -79,6 +79,10 @@
 }
 
 # dotlrn Guest status
+if { ![info exists guest_p] } {
+    set guest_p 0
+}
+
 if { $guest_p } {
     set guest_label [_ dotlrn.Yes]
     set guest_toggle_url [export_vars -base "guest-toggle" {user_id {guest_p f} {referer $return_url}}]