diff --git a/ClanLib/Documentation/Reference/pce2.in b/ClanLib/Documentation/Reference/pce2.in
index c8fc8a8..7770fdf 100644
--- a/ClanLib/Documentation/Reference/pce2.in
+++ b/ClanLib/Documentation/Reference/pce2.in
@@ -667,10 +667,10 @@ sub procNamespace {
 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 byfullname { $a->{fullname} cmp $b->{fullname}; }
 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\";");