--- a/Documentation/Reference/pce2.in
+++ b/Documentation/Reference/pce2.in
@@ -667,10 +667,10 @@
 sub procClass {
   my($env,$block,$com)=@_;
 
-  if (&mask_API($block)=~/^\s*(class|union|struct)\s+(\S+)\s*:(.*){/) { 
+  if (&mask_API($block)=~/^\s*(class|union|struct)\s+(\S+)\s*:(.*)\{/) {
     $env=Class::new($env,$2,$com,$1,$3);
   }
-  elsif (&mask_API($block)=~/^\s*(class|union|struct)\s+(\S+)\s*{/) { 
+  elsif (&mask_API($block)=~/^\s*(class|union|struct)\s+(\S+)\s*\{/) {
     $env=Class::new($env,$2,$com,$1);
   }
   elsif ($block=~/^\s*(union|struct)\s*{/) { 
@@ -1105,7 +1105,7 @@
 sub alter {
   my $self=shift;
   my $str=shift;
-  $str=~s/\${/\$\$self{/g;
+  $str=~s/\$\{/\$\$self\{/g;
   $str=~s/\\n/\n/g;
   $str=~s/"/\\"/g;
   eval("\$str=\"$str\";");