--- loncom/interface/loncommon.pm	2004/12/01 23:18:23	1.237
+++ loncom/interface/loncommon.pm	2004/12/02 00:01:34	1.238
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.237 2004/12/01 23:18:23 raeburn Exp $
+# $Id: loncommon.pm,v 1.238 2004/12/02 00:01:34 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3887,7 +3887,7 @@ sub escape_double {
 #   Escapes the last element of a full URL.
 sub escape_url {
     my ($url)   = @_;
-    my @urlslices = split(/\//, $url);
+    my @urlslices = split(/\//, $url,-1);
     my $lastitem = &Apache::lonnet::escape(pop(@urlslices));
     return join('/',@urlslices).'/'.$lastitem;
 }