Index: openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl,v
diff -u -N -r1.93.2.8 -r1.93.2.9
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	6 Sep 2019 16:00:31 -0000	1.93.2.8
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	30 Sep 2019 21:14:08 -0000	1.93.2.9
@@ -90,6 +90,11 @@
         return -code error "Value '$value' of parameter $name is not a valid token."
       }
     }
+    :method type=localurl {name value} {
+      if { $value eq "" || [util::external_url_p $value]} {
+        return -code error "Value '$value' of parameter $name is not a valid local url."
+      }
+    }
   }
 
   ::xotcl::Object proc setExitHandler {code} {::nsf::exithandler set $code}
@@ -104,6 +109,7 @@
     ::nx::Slot method set
     ::nx::Slot method type=naturalnum
     ::nx::Slot method type=token
+    ::nx::Slot method type=localurl
     ::nx::Object nsfproc ::nsf::debug::call
     ::nx::Object nsfproc ::nsf::debug::exit
   }