Index: openacs-4/packages/dotlrn/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/index.tcl,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/dotlrn/www/index.tcl	11 Dec 2001 00:45:15 -0000	1.15
+++ openacs-4/packages/dotlrn/www/index.tcl	11 Dec 2001 03:08:21 -0000	1.16
@@ -45,6 +45,11 @@
 # Get the page
 set portal_id [dotlrn::get_workspace_portal_id $user_id]
 
+if {[empty_string_p $portal_id]} {
+    ad_returnredirect index-not-a-user
+    return
+}
+
 set rendered_page [dotlrn::render_page $portal_id]
 
 ad_return_template