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.64 -r1.65
--- openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl	19 Sep 2024 10:59:46 -0000	1.64
+++ openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl	24 Sep 2024 11:44:02 -0000	1.65
@@ -2506,20 +2506,25 @@
     @author Gustaf Neumann
     @creation-date 19 Mai 2016
 } {
+    set valid_p 1
 
     if { $value eq "" || [util::external_url_p $value]} {
-        ad_complain [_ acs-tcl.lt_name_is_not_valid]
-        return 0
+        set valid_p 0
+    } else {
+        try {
+            ns_parseurl $value
+        } on error {errMsg} {
+            set valid_p 0
+        } on ok {d} {
+            set valid_p [expr {![dict exists $d proto] || [dict get $d proto] in {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}}]
+    if {!$valid_p} {
+        ad_complain [_ acs-tcl.lt_name_is_not_valid]
     }
 
+    return $valid_p
 }