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.23 -r1.24 --- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl 17 Mar 2006 20:19:59 -0000 1.23 +++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl 31 Mar 2006 19:36:45 -0000 1.24 @@ -669,6 +669,10 @@ Page instproc include arg { [self class] instvar recursion_depth if {[regexp {^adp (.*)$} $arg _ adp]} { + if {[catch {lindex $adp 0}]} { + # there is something syntactically wrong + return $arg + } set adp [string map {  " "} $adp] set adp_fn [lindex $adp 0] if {![string match "/*" $adp_fn]} {set adp_fn /packages/xowiki/www/$adp_fn}