Index: openacs-4/packages/dotlrn/tcl/navigation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/navigation-procs.tcl,v
diff -u -r1.31 -r1.32
--- openacs-4/packages/dotlrn/tcl/navigation-procs.tcl	30 Apr 2018 09:14:23 -0000	1.31
+++ openacs-4/packages/dotlrn/tcl/navigation-procs.tcl	3 Sep 2024 15:37:37 -0000	1.32
@@ -198,7 +198,7 @@
 	set control_panel_url "$dotlrn_url/$control_panel_name"
            
         if {$community_id eq ""} {
-            # We are not under a dotlrn community. However we could be
+            # We are not under a dotlrn community. However, we could be
             # under /dotlrn (i.e. in the user's portal) or anywhere
             # else on the site
             set link "[dotlrn::get_url]/"
@@ -268,7 +268,7 @@
 	#Strip out extra anchors and other crud.
 	#page_num will be empty_string for special pages like
 	#My Space and Control Panel
-	regsub -all {[^0-9]} $page_num {} page_num
+	regsub -all -- {[^0-9]} $page_num {} page_num
 
 	db_foreach list_page_nums_select {} {
 	    if { ("$dotlrn_url/" == [ad_conn url] || "$dotlrn_url/index" == [ad_conn url]) && $sort_key == 0 && $page_num eq ""} {