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.275 -r1.276
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	12 Sep 2008 11:21:07 -0000	1.275
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	12 Sep 2008 14:32:02 -0000	1.276
@@ -939,7 +939,10 @@
     regexp {^([^|]+)[|](.*)$} $arg _ link label
     regexp {^([^|]+)[|](.*)$} $label _ label options
     set options [my undoublequote $options]
-    if {[string match "http*//*" $link] || [string match "//*" $link]} {
+    if {[string match "http*//*" $link] 
+        || [string match "ftp://*" $link]
+        || [string match "//*" $link]
+      } {
       if {[regsub {^//} $link / link]} {
 	#my msg t=[::xowiki::guesstype $link]
 	switch -glob -- [::xowiki::guesstype $link] {