Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v
diff -u -r1.162 -r1.163
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	1 Aug 2007 20:09:42 -0000	1.162
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	9 Aug 2007 18:05:53 -0000	1.163
@@ -611,7 +611,27 @@
     regexp {^([^|]+)[|](.*)$} $arg _ link label
     regexp {^([^|]+)[|](.*)$} $label _ label options
     if {[string match "http*//*" $link] || [string match "//*" $link]} {
-      regsub {^//} $link / link
+      if {[regsub {^//} $link / link]} {
+	my msg t=[::xowiki::guesstype $link]
+	switch -glob -- [::xowiki::guesstype $link] {
+	  text/css {
+	    ::xowiki::Page requireCSS $link
+	    return $ch
+	  }
+	  application/x-javascript {
+	    ::xowiki::Page requireJS $link
+	    return $ch
+	  }
+	  image/* {
+	    Link create [self]::link \
+		-page [self] \
+		-type localimage -label $label \
+		-href $link
+	    eval [self]::link configure $options
+	    return $ch[[self]::link render]
+	  }
+	}
+      }
       set l [ExternalLink new -label $label -href $link]
       eval $l configure $options
       set html [$l render]
@@ -893,7 +913,7 @@
   }
 
   PlainPage instproc get_content {} {
-    #my log "-- my class=[my info class]"
+    #my msg "-- my class=[my info class]"
     return [my substitute_markup [my set text]]
   }
   PlainPage instproc set_content {text} {