--- loncom/interface/lonmenu.pm	2006/12/05 02:55:53	1.206
+++ loncom/interface/lonmenu.pm	2007/03/09 01:29:54	1.208
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines to control the menu
 #
-# $Id: lonmenu.pm,v 1.206 2006/12/05 02:55:53 albertel Exp $
+# $Id: lonmenu.pm,v 1.208 2007/03/09 01:29:54 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -44,7 +44,7 @@ use Apache::lonhtmlcommon();
 use Apache::loncommon();
 use Apache::lonenc();
 use Apache::lonlocal;
-use LONCAPA qw{:DEFAULT :match);
+use LONCAPA qw(:DEFAULT :match);
 
 use vars qw(@desklines $readdesk);
 
@@ -464,8 +464,9 @@ sub innerregister {
             } else {
                 $currdir =~ s#[^/]+$##;
 		my $cleandisfn = &Apache::loncommon::escape_single($thisdisfn);
+		my $esc_currdir = &Apache::loncommon::escape_single($currdir);
                 $menuitems=(<<ENDMENUITEMS);
-s&6&1&list.gif&list[_1]&dir[_1]&golist('$currdir')&List current directory
+s&6&1&list.gif&list[_1]&dir[_1]&golist('$esc_currdir')&List current directory
 s&6&2&rtrv.gif&retrieve[_1]&version[_1]&gocstr('/adm/retrieve','/~$uname/$cleandisfn')&Retrieve old version
 s&6&3&pub.gif&publish[_1]&resource[_1]&gocstr('/adm/publish','/~$uname/$cleandisfn')&Publish this resource
 s&7&1&del.gif&delete[_1]&resource[_2]&gocstr('/adm/cfile?action=delete','/~$uname/$cleandisfn')&Delete this resource