Index: openacs-4/contrib/packages/simulation/test/simulation-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/test/Attic/simulation-test-procs.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/contrib/packages/simulation/test/simulation-test-procs.tcl	22 Jan 2004 08:53:03 -0000	1.12
+++ openacs-4/contrib/packages/simulation/test/simulation-test-procs.tcl	22 Jan 2004 14:08:39 -0000	1.13
@@ -508,6 +508,12 @@
     form find ~n object
     field find ~n title
     field fill $title
+
+    catch {
+        field find ~n in_directory_p
+        field select2 ~v t
+    }
+
     form submit
 }