--- lib/TWiki.pm.orig	Wed Feb 14 11:19:38 2007
+++ lib/TWiki.pm	Wed Feb 14 13:44:02 2007
@@ -3428,7 +3428,7 @@
 sub _SCRIPTNAME {
     #my ( $this, $params, $theTopic, $theWeb ) = @_;
     # try SCRIPT_FILENAME
-    my $value = $ENV{SCRIPT_FILENAME};
+    my $value = $ENV{SCRIPT_FILENAME} || $ENV{SCRIPT_NAME};
     if( $value ) {
         $value =~ s!.*/([^/]+)$!$1!o;
         return $value;