Index: openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl,v
diff -u -r1.61.2.42 -r1.61.2.43
--- openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl	5 Apr 2024 08:28:21 -0000	1.61.2.42
+++ openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl	24 Jul 2024 09:06:23 -0000	1.61.2.43
@@ -235,10 +235,10 @@
                        however, because parenthesys ")" and "(" and
                        pipe "|" are separators in the argspec syntax,
                        they need to be escaped via the character backslash (\)
-    </ul>                                                      
+    </ul>
 
     Examples of valid argspecs:
-                                                                            
+
 <pre>
     - my_page_parameter
     - my_page_parameter:integer
@@ -2435,7 +2435,7 @@
 }
 
 ad_page_contract_filter safetclchars { name value } {
-    
+
     Checks whether the value contains just characters, which can be
     used safely in a Tcl eval or subst command. This means, that the characters
     '$', '[', ']' and '\' disallowed,.
@@ -2505,6 +2505,10 @@
         ad_complain [_ acs-tcl.lt_name_is_not_valid]
         return 0
     }
+    set d [ns_parseurl $url]
+    if {[dict exists $d proto] && [dict get $d proto] ni {http https}} {
+        return 0
+    }
     return 1
 }