Index: openacs-4/packages/simple-survey/www/one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simple-survey/www/one.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/simple-survey/www/one.tcl	15 Mar 2002 05:42:09 -0000	1.3
+++ openacs-4/packages/simple-survey/www/one.tcl	29 Mar 2002 17:32:03 -0000	1.4
@@ -40,7 +40,7 @@
 db_1row survey_info "select name, description, single_response_p, single_editable_p, display_type
     from survsimp_surveys where survey_id = :survey_id"
 
-set context_bar [ad_context_bar_ws_or_index [list "./" "Surveys"] "$name"]
+set context_bar [list [list "./" "Surveys"] "$name"]
 
 set num_responses [db_string responses_count {
     select count(response_id)