Index: openacs-4/packages/assessment/tcl/test/twt-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/test/twt-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/assessment/tcl/test/twt-procs.tcl	15 May 2007 20:14:17 -0000	1.2
+++ openacs-4/packages/assessment/tcl/test/twt-procs.tcl	2 Sep 2008 17:19:28 -0000	1.3
@@ -53,7 +53,7 @@
     ::tclwebtest::form find ~n {show_item_form}
     ::tclwebtest::field fill {{}[]} ;# ~n {response_to_item.727726} ;# type of field = text 
 ::tclwebtest::form submit 
-    ::tclwebtest::link follow {View results} ;# ~u {/${assessment_url}/session?session_id=727735}
+    ::tclwebtest::link follow ~u {session} ;# ~u {/${assessment_url}/session?session_id=727735}
 
 #    twt::user::login $admin_user(email) $admin_user(password) $admin_user(username)
     twt::do_request "/${assessment_url}/asm-admin"