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.2.1 -r1.31.2.2
--- openacs-4/packages/dotlrn/tcl/navigation-procs.tcl	5 Oct 2019 13:43:47 -0000	1.31.2.1
+++ openacs-4/packages/dotlrn/tcl/navigation-procs.tcl	1 Feb 2021 11:02:58 -0000	1.31.2.2
@@ -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 ""} {