diff --git a/docs/changelog/6.x.x.txt b/docs/changelog/6.x.x.txt
index 1e30ec39a..64cee651a 100644
--- a/docs/changelog/6.x.x.txt
+++ b/docs/changelog/6.x.x.txt
@@ -1,5 +1,6 @@
 6.0.3
  - Fixed a recursive style change bug.
+ - Bugfix [ 953593 ] perl -MWebGUI -e "" fails
 
 
 6.0.2
diff --git a/lib/WebGUI/Macro.pm b/lib/WebGUI/Macro.pm
index 6994820cf..9c04801ee 100644
--- a/lib/WebGUI/Macro.pm
+++ b/lib/WebGUI/Macro.pm
@@ -45,7 +45,7 @@ These functions are available from this package:
 =cut
 
 
-
+our $parenthesis;
 our $nestedMacro = qr /(\^                     # Start with carat
                      ([^\^;()]+)            # And one or more none-macro characters -tagged-
                      ((?:                   # Followed by
@@ -57,7 +57,7 @@ our $nestedMacro = qr /(\^                     # Start with carat
 
 
 
-our $parenthesis = qr /\(                      # Start with '(',
+$parenthesis = qr /\(                      # Start with '(',
                      (?:                     # Followed by
                      (?>[^()]+)              # Non-parenthesis
                      |(??{ $parenthesis })   # Or a balanced parenthesis block