--- trunk/lib/WebPAC/Parser.pm	2007/11/04 19:10:21	1006
+++ trunk/lib/WebPAC/Parser.pm	2007/11/20 22:07:45	1061
@@ -332,6 +332,13 @@
 			my ($Document,$Element) = @_;
 
 			$Element->isa('PPI::Token::Word') or return '';
+
+			if ( $Element->content eq 'sub' ) {
+				# repair demage done by prune of whitespace
+				$Element->insert_after( PPI::Token::Whitespace->new(' ') );
+				return '';
+			}
+
 			$Element->content eq 'lookup' or return '';
 
 			$log->debug("expansion: ", $Element->snext_sibling);
@@ -406,7 +413,7 @@
 			}
 
 			$e[7]->remove;
-			$e[8]->insert_before( new PPI::Token::Quote::Single( "'$key'" ) );
+			$e[8]->insert_before( PPI::Token::Quote::Single->new( "'$key'" ) );
 			$e[8]->remove;