Index: openacs-4/packages/new-portal/tcl/portal-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/portal-procs.tcl,v
diff -u -r1.105 -r1.106
--- openacs-4/packages/new-portal/tcl/portal-procs.tcl	23 Jan 2002 05:14:09 -0000	1.105
+++ openacs-4/packages/new-portal/tcl/portal-procs.tcl	23 Jan 2002 05:24:33 -0000	1.106
@@ -635,8 +635,10 @@
                         insert into portal_current_page 
                         (portal_id, page_id) values (:portal_id, :page_id)
                     }
-                    return $page_id
+                    
                 }
+                
+                return $page_id
             }
         }
     }