Index: openacs-4/packages/xowiki/www/admin/test.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/admin/test.tcl,v
diff -u -r1.24 -r1.25
--- openacs-4/packages/xowiki/www/admin/test.tcl	25 Nov 2009 12:28:22 -0000	1.24
+++ openacs-4/packages/xowiki/www/admin/test.tcl	30 Nov 2009 10:22:00 -0000	1.25
@@ -564,16 +564,16 @@
 $p nls_language de_DE
 test subsubsection "Testing links on German page"
 xowiki-test-links $p {
-    hello 0 0
+    hello 1 0
     en:hello 1 0
     de:hello 0 0
     xxx 0 0
-    //XOWIKI-TEST/hello 0 0
+    //XOWIKI-TEST/hello 1 0
     //XOWIKI-TEST/en:hello 1 0
     //XOWIKI-TEST/de:hello 0 0
     //XOWIKI-TEST/en/hello 0 0
     //forums 1 1
-    //XOWIKI-TEST/weblog?m=create-new&p.exercise_form=en:l1 0 0
+    //XOWIKI-TEST/weblog?m=create-new&p.exercise_form=en:l1 1 0
     //XOWIKI-TEST/en:weblog?m=create-new&p.exercise_form=en:l1 1 0
 }
 
@@ -685,6 +685,7 @@
   set subf3_id       [require_folder "subf3"       $f3_id $package_id]
 
   # make sure, we have the test pages
+  set indexpage_id   [require_page   en:index      $folder_id $package_id]
   set parentpage_id  [require_page   de:parentpage $folder_id $package_id]
   set testpage_id    [require_page   de:testpage   $foldername_id $package_id]
 
@@ -814,7 +815,7 @@
   ? {expr {$(link_type) eq "link" && $(prefix) eq "de" && $(stripped_name) eq "parentpage"
            && $(parent_id) eq $folder_id && $(item_id) == 0}} 1 "\n$test:\n  [array get {}]\n "
 
-  set l "./" ;# stripped name will be the name of the root folder, omit from test
+  set l "./" ;# stripped name will be the name of the root folder
   set test [label "item_ref" "dot with slash, relative" $l]
   array set "" [p item_ref -default_lang de -parent_id $folder_id $l]
   ? {expr {$(link_type) eq "folder" && $(prefix) eq ""