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.44 -r1.61.2.45
--- openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl	24 Jul 2024 10:01:14 -0000	1.61.2.44
+++ openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl	20 Aug 2024 08:41:50 -0000	1.61.2.45
@@ -2505,11 +2505,15 @@
         ad_complain [_ acs-tcl.lt_name_is_not_valid]
         return 0
     }
-    set d [ns_parseurl $value]
-    if {[dict exists $d proto] && [dict get $d proto] ni {http https}} {
+
+    try {
+        ns_parseurl $value
+    } on error {errMsg} {
         return 0
+    } on ok {d} {
+        return [expr {![dict exists $d proto] || [dict get $d proto] in {http https}}]
     }
-    return 1
+
 }