1 files changed, 10 insertions, 1 deletions
diff --git a/presentps b/presentps
index a547eb0..876bd34 100755
--- a/presentps
+++ b/presentps
@@ -393,8 +393,17 @@ foreach (@pre){
 while (<>) {
     $pageln = $nextln;
     @page = ();
+    my $embedded = 0;
     while (<>) {
-	if (/^EEND /) {
+	if (/^%%BeginDocument:/) {
+	    $embedded++;
+	    push @page, $_;
+	} elsif ($embedded) {
+	    if (/^%%EndDocument/) {
+		$embedded--;
+	    }
+	    push @page, $_;
+	} elsif (/^EEND /) {
 	    push @page, "EEND\n";
 	    s/^EEND //;
 	    redo;