--- loncom/interface/loncommon.pm	2013/01/18 12:58:42	1.1112
+++ loncom/interface/loncommon.pm	2013/01/21 02:12:51	1.1113
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.1112 2013/01/18 12:58:42 bisitz Exp $
+# $Id: loncommon.pm,v 1.1113 2013/01/21 02:12:51 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -4981,7 +4981,7 @@ sub CSTR_pageheader {
 
     my $londocroot = $Apache::lonnet::perlvar{'lonDocRoot'};
     my ($udom,$uname,$thisdisfn)=
-        ($trailfile =~ m{^\Q$londocroot\E/priv/([^/]+)/([^/]+)/(.*)$});
+        ($trailfile =~ m{^\Q$londocroot\E/priv/([^/]+)/([^/]+)(?:|/(.*))$});
     my $formaction = "/priv/$udom/$uname/$thisdisfn";
     $formaction =~ s{/+}{/}g;