Lout 3.38.

git-svn-id: http://svn.savannah.nongnu.org/svn/lout/trunk@45 9365b830-b601-4143-9ba8-b4a8e2c3339c

69 files changed, 143 insertions, 126 deletions

diff --git a/README b/README
index 20b0bac..c6a72df 100644
--- a/README
+++ b/README
@@ -1,5 +1,5 @@
-THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.36)
-BASSER LOUT VERSION 3 COPYRIGHT (C) 1994, 2007 Jeffrey H. Kingston
+THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.38)
+BASSER LOUT VERSION 3 COPYRIGHT (C) 1994, 2008 Jeffrey H. Kingston
 
 Jeffrey H. Kingston
 School of Information Technologies
@@ -7,7 +7,6 @@ The University of Sydney 2006
 AUSTRALIA
 
 Email: jeff@it.usyd.edu.au
-Fax: 61 2 692 3838
 
 This program is free software; you can redistribute it and/or modify
 it under the terms of the GNU General Public License as published by
diff --git a/blurb b/blurb
index f2851a4..71a66a1 100644
--- a/blurb
+++ b/blurb
@@ -1,7 +1,7 @@
 
-         THE LOUT DOCUMENT FORMATTING SYSTEM, VERSION 3.37
+         THE LOUT DOCUMENT FORMATTING SYSTEM, VERSION 3.38
 
-Version 3.37 of the Lout document formatting system is now available
+Version 3.38 of the Lout document formatting system is now available
 (free of charge).  The system reads a high-level description of a
 document similar in style to LaTeX and produces a PostScript or
 plain text output file.
@@ -21,7 +21,7 @@ went back to the beginning.
 Lout is written in highly portable ANSI C.  It is distributed under the
 GNU public license and is obtainable from
 
-   ftp://ftp.it.usyd.edu.au/jeff/lout/lout-3.37.tar.gz
+   ftp://ftp.it.usyd.edu.au/jeff/lout/lout-3.38.tar.gz
 
 The distribution contains
 
@@ -37,7 +37,7 @@ The distribution contains
 
 A PostScript version of the User's Guide is available at:
 
-   ftp://ftp.it.usyd.edu.au/jeff/lout/lout-3.37-user.ps.gz
+   ftp://ftp.it.usyd.edu.au/jeff/lout/lout-3.38-user.ps.gz
 
 Lout was created by Jeffrey H. Kingston (jeff@it.usyd.edu.au) of the
 School of Information Technologies at the University of Sydney.
diff --git a/doc/design/README b/doc/design/README
index 0b0f6ce..1e42437 100644
--- a/doc/design/README
+++ b/doc/design/README
@@ -23,4 +23,4 @@ messages (although changing the paper size might
 produce one or two benign ones).
 
 Jeffrey H. Kingston
-19 September 2008
+14 October 2008
diff --git a/doc/design/outfile.ps b/doc/design/outfile.ps
index 958311b..c142bee 100644
--- a/doc/design/outfile.ps
+++ b/doc/design/outfile.ps
@@ -1,6 +1,6 @@
 %!PS-Adobe-3.0
-%%Creator: Basser Lout Version 3.37 (September 2008)
-%%CreationDate: Fri Sep 19 08:43:20 2008
+%%Creator: Basser Lout Version 3.38 (September 2008)
+%%CreationDate: Tue Oct 14 07:37:29 2008
 %%DocumentData: Binary
 %%DocumentNeededResources: (atend)
 %%DocumentSuppliedResources: (atend)
diff --git a/doc/expert/README b/doc/expert/README
index 279e143..7fdef44 100644
--- a/doc/expert/README
+++ b/doc/expert/README
@@ -21,4 +21,4 @@ which just warns about a figure that is not able to be placed on
 the first possible page, and so has to appear on the next page.
 
 Jeffrey H. Kingston
-19 September 2008
+14 October 2008
diff --git a/doc/expert/all b/doc/expert/all
index 39e5d1d..00f3e81 100644
--- a/doc/expert/all
+++ b/doc/expert/all
@@ -11,8 +11,8 @@ Lout
 
 Document Formatting System  }
    @Author { Jeffrey H. Kingston }
-   @Edition { Version 3.37
-September, 2008 }
+   @Edition { Version 3.38
+October, 2008 }
    @Publisher { @I { @CopyRight Copyright 1991, 2008, Jeffrey
 H. Kingston, School of Information Technologies, The University
 of Sydney 2006, Australia.} }
diff --git a/doc/expert/outfile.ps b/doc/expert/outfile.ps
index 58c70ed..3f533a1 100644
--- a/doc/expert/outfile.ps
+++ b/doc/expert/outfile.ps
@@ -1,6 +1,6 @@
 %!PS-Adobe-3.0
-%%Creator: Basser Lout Version 3.37 (September 2008)
-%%CreationDate: Fri Sep 19 08:42:23 2008
+%%Creator: Basser Lout Version 3.38 (September 2008)
+%%CreationDate: Tue Oct 14 07:50:16 2008
 %%DocumentData: Binary
 %%DocumentNeededResources: (atend)
 %%DocumentSuppliedResources: (atend)
@@ -1603,8 +1603,8 @@ grestore
 600 fnt2 1355 12125(An)m 2215(Exper)s -24(t')k 30(s)k
 4518(Guide)s 6258(to)s 6902(the)s 3956 10685(Lout)m 616 9245(Document)m
 3500(F)s 18(or)k -15(matting)k 6490(System)s 240 fnt2
-3544 6059(Jeffre)m 4(y)k 4321(H.)s 4606(Kingston)s 3882 4395(V)m 19(ersion)k
-4725(3.37)s 3637 4107(September)m 12(,)k 4906(2008)s 240 fnt4
+3544 6059(Jeffre)m 4(y)k 4321(H.)s 4606(Kingston)s 3883 4395(V)m 19(ersion)k
+4726(3.38)s 3796 4107(October)m 12(,)k 4746(2008)s 240 fnt4
 0 342(\343)m 240 fnt3 241 340(Cop)m 7(yr)k -3(ight)k
 1345(1991,)s 1991(2008,)s 2638(Jeffre)s 4(y)k 3438(H.)s
 3726(Kingston,)s 4771(School)s 5587(of)s 5882(Inf)s 7(or)k -6(mation)k
@@ -1698,11 +1698,11 @@ grestore
 
 [ /Rect [8501 9331 8615 9493] /Border [0 0 0] /View [ /XYZ null null null ] /Subtype /Link /Dest /LOUTkingston1995lout_program /ANN pdfmark
 8501(4)s 8615(])s 8722(and)s 0 9043(de)m 6(v)k 3(eloped)k
-1042(continuously)s 2342(since)s 2899(then.)s 3484(This)s 3969(manual)s
-4738(w)s 2(as)k 5168(rendered)s 6071(into)s 6506(PostScript)s
+1042(continuously)s 2342(since)s 2899(then.)s 3484(This)s 3970(manual)s
+4738(w)s 2(as)k 5168(rendered)s 6072(into)s 6506(PostScript)s
 
 [ /Dest /LOUT19_4605_preface_1 /DEST pdfmark
-7557(by)s 7860(V)s 26(ersion)k 8658(3.37)s 0 8755(of)m
+7558(by)s 7861(V)s 26(ersion)k 8659(3.38)s 0 8755(of)m
 271(the)s 619(Basser)s 1316(Lout)s 1828(interpreter)s 9(,)k
 2919(using)s 3491(the)s 3839(symbols)s 4688(described)s 5662(in)s
 5905(the)s 6253(User')s 13(s)k 6914(Guide)s 7555([)s
@@ -15769,8 +15769,8 @@ grestore
 5908(F)s 3(or)k 6297(e)s 3(xample,)k 220 fnt2
 480 1826(@Moment&&no)m 3(w @Open { @Da)k 6(y {@Months&&@Month}, @Centur)k -6(y{@Y)k 30(ear} })k
 240 fnt1 0 1328(produces)m 915(something)s 1965(lik)s 2(e)k
-2377(19)s 2668(September)s 9(,)k 3788(2008)s 4315(gi)s 6(v)k 3(en)k
-4895(a)s 5061(suitable)s 5860(database)s 6739(of)s 7010(months.)s
+2377(14)s 2671(October)s 9(,)k 3539(2008)s 4066(gi)s 6(v)k 3(en)k
+4646(a)s 4812(suitable)s 5611(database)s 6490(of)s 6761(months.)s
 
 grestore
 gsave
diff --git a/doc/expert/preface b/doc/expert/preface
index 092f9a8..a790474 100644
--- a/doc/expert/preface
+++ b/doc/expert/preface
@@ -21,7 +21,7 @@ This manual presents Version 3 of Basser Lout, publicly released in
 September 1994 @Cite { $kingston1995lout.program } and developed
 continuously since then.  This manual was rendered into PostScript
 postscript @Index { PostScript }
-by Version 3.37 of the Basser Lout interpreter, using the symbols
+by Version 3.38 of the Basser Lout interpreter, using the symbols
 described in the User's Guide @Cite { $kingston1995lout.user }.
 @DP
 @Heading { Acknowledgment. }  Version 3 has benefited from hundreds of
diff --git a/doc/slides/README b/doc/slides/README
index ee559ca..116304c 100644
--- a/doc/slides/README
+++ b/doc/slides/README
@@ -15,4 +15,4 @@ be no error messages at all after the second run.
 A copy of the final outfile.ps is included.
 
 Jeff Kingston
-19 September 2008
+14 October 2008
diff --git a/doc/slides/outfile.ps b/doc/slides/outfile.ps
index 7dadd44..481cb37 100644
--- a/doc/slides/outfile.ps
+++ b/doc/slides/outfile.ps
@@ -1,6 +1,6 @@
 %!PS-Adobe-3.0
-%%Creator: Basser Lout Version 3.37 (September 2008)
-%%CreationDate: Fri Sep 19 08:43:56 2008
+%%Creator: Basser Lout Version 3.38 (September 2008)
+%%CreationDate: Tue Oct 14 07:39:10 2008
 %%DocumentData: Binary
 %%DocumentNeededResources: (atend)
 %%DocumentSuppliedResources: (atend)
diff --git a/doc/user/README b/doc/user/README
index 850b67a..29ff9e9 100644
--- a/doc/user/README
+++ b/doc/user/README
@@ -40,7 +40,7 @@ repeated failure to converge, caused by footnotes and floating figures
 close to large unbreakable displays.
 
 A copy of the final PostScript output file (A4 paper size) is
-stored at "ftp://ftp.it.usyd.edu.au/jeff/lout/lout-3.37.user.ps.gz".
+stored at "ftp://ftp.it.usyd.edu.au/jeff/lout/lout-3.38.user.ps.gz".
 
 Jeffrey H. Kingston
-19 September 2008
+14 October 2008
diff --git a/doc/user/all b/doc/user/all
index 9c49083..16e76cc 100644
--- a/doc/user/all
+++ b/doc/user/all
@@ -22,8 +22,8 @@ Lout
 Document Formatting System
 }
     @Author { Jeffrey H. Kingston }
-    @Edition { Version 3.37
-September 2008 }
+    @Edition { Version 3.38
+October 2008 }
     @Publisher {
 Copyright @CopyRight 1991, 2008 Jeffrey H. Kingston,
 School of Information Technologies,
diff --git a/doc/user/preface b/doc/user/preface
index b3face6..f76bc28 100644
--- a/doc/user/preface
+++ b/doc/user/preface
@@ -18,7 +18,7 @@ gnu. @Index { GNU Public License }
 primary source is directory
 @ID @Code "ftp://ftp.it.usyd.edu.au/jeff/lout"
 containing a gzipped tar file of the current version
-(currently {@Code "lout-3.37.tar.gz"}), and various other things including
+(currently {@Code "lout-3.38.tar.gz"}), and various other things including
 a PostScript version of this guide.  The distribution contains source code,
 libraries, documentation, license, and installation instructions.
 @PP
diff --git a/externs.h b/externs.h
index 3a8e1a1..982edf3 100644
--- a/externs.h
+++ b/externs.h
@@ -1,6 +1,6 @@
 /*@externs.h:External Declarations:Directories and file conventions@**********/
 /*                                                                           */
-/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.37)                       */
+/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.38)                       */
 /*  COPYRIGHT (C) 1991, 2008 Jeffrey H. Kingston                             */
 /*                                                                           */
 /*  Jeffrey H. Kingston (jeff@it.usyd.edu.au)                                */
@@ -95,7 +95,7 @@ extern nl_catd MsgCat;
 /*                                                                           */
 /*****************************************************************************/
 
-#define	LOUT_VERSION   AsciiToFull("Basser Lout Version 3.37 (September 2008)")
+#define	LOUT_VERSION   AsciiToFull("Basser Lout Version 3.38 (September 2008)")
 #define	CROSS_DB	   AsciiToFull("lout")
 #define	SOURCE_SUFFIX	   AsciiToFull(".lt")
 #define	INDEX_SUFFIX	   AsciiToFull(".li")
diff --git a/makefile b/makefile
index d01bc22..6719211 100644
--- a/makefile
+++ b/makefile
@@ -229,26 +229,26 @@
 #                                                                             #
 # (18) If the usual language at your site is not English, you might like to   #
 #      now change the default value of the @InitialLanguage option on line    #
-#      251 of file $(LOUTLIBDIR)/include/bsf.  This will mean that by default #
-#      the date and words like Chapter and July will appear in a different    #
-#      language, and hyphenation will be carried out according to patterns    #
-#      designed for that language.  You can find the list of known languages  #
-#      in the User's Guide, or in file $(LOUTLIBDIR)/include/langdefs; if     #
-#      yours is not on the list, let me know and we can work together to      #
-#      add it.  This has nothing to do with locales and USELOC.               #
+#      265 (or thereabouts) of file $(LOUTLIBDIR)/include/bsf.  This will     #
+#      mean that by default the date and words like Chapter and July will     #
+#      appear in a different language, and hyphenation will be carried out    #
+#      according to patterns designed for that language.  You can find the    #
+#      list of known languages in file $(LOUTLIBDIR)/include/langdefs, or in  #
+#      the User's Guide; if yours is not there, let me know and we can work   #
+#      together to add it.  This has nothing to do with locales and USELOC.   #
 #                                                                             #
 # (19) If the usual size of a piece of paper at your site is not A4, you      #
 #      might like to now change the default value of the @PageType option     #
-#      on line 65 of file $(LOUTLIBDIR)/include/dsf:                          #
+#      on line 65 (or thereabouts) of file $(LOUTLIBDIR)/include/dsf:         #
 #                                                                             #
 #          named @PageType { A4 @OrIfPlain Other }                            #
 #                                                                             #
-#      This is saying that the page type is to be A4 by default, unless       #
-#      plain text output is in effect (lout -p), in which case the page       #
-#      type is Other, which means that the page dimensions come from the      #
-#      @PageWidth and @PageHeight options.  Just change the A4, not the rest. #
-#      You can find the list of known page types, alternative to A4, in the   #
-#      User's Guide, or at line 738 in $(LOUTLIBDIR)/include/dsf.             #
+#      This says that the page type is to be A4 by default, unless plain      #
+#      text output is in effect (lout -p), in which case the page type is     #
+#      Other, which means that the page dimensions come from the @PageWidth   #
+#      and @PageHeight options.  Just change the A4, not the rest.  You can   #
+#      find the list of known page types, alternative to A4, in the User's    #
+#      Guide, or at line 764 (or thereabouts) in $(LOUTLIBDIR)/include/dsf.   #
 #                                                                             #
 #  Mail jeff@it.usyd.edu.au if you have any problems.                         #
 #                                                                             #
diff --git a/prg2lout.c b/prg2lout.c
index 5ed8619..103acbb 100644
--- a/prg2lout.c
+++ b/prg2lout.c
@@ -4,7 +4,7 @@
 /*  PRG2LOUT: A PROGRAM TO CONVERT PROGRAM SOURCES INTO LOUT                 */
 /*  COPYRIGHT (C) 2000, 2008 Jeffrey H. Kingston                             */
 /*                                                                           */
-/*  Part of Lout Version 3.37, September 2008                                */
+/*  Part of Lout Version 3.38, September 2008                                */
 /*                                                                           */
 /*  Jeffrey H. Kingston (jeff@cs.su.oz.au)                                   */
 /*  Basser Department of Computer Science                                    */
@@ -3563,7 +3563,8 @@ void NextChar()
   else if( curr_line[line_pos+1] != '\0' )
   {
     /* we've already read in the next line; it's at &curr_line[line_pos+1] */
-    strcpy((char *) &curr_line[1], (char *) &curr_line[line_pos+1]);
+    int len = strlen((char *) &curr_line[line_pos+1]);
+    memmove(&curr_line[1], &curr_line[line_pos+1], len + 1);
     line_num++;
     line_pos = 1;
   }
@@ -4677,6 +4678,7 @@ void Process(LANGUAGE *lang, TOKEN *outer_token,
 	else
 	{
 	  fprintf(err_fp, "%s internal error: lang->no_match\n", ErrorHeader());
+	  exit(1);
 	}
 	break;
 
@@ -5029,7 +5031,7 @@ int main(int argc, char *argv[])
   /* read command line */
   in_fp = out_fp = (FILE *) NULL;
   err_fp = stderr;
-  line_num = 0;
+  line_num = line_pos = 0;
   stdin_seen = raw_seen = FALSE;
   tab_by_spacing = TRUE;
   tab_in = 8;
@@ -5039,8 +5041,8 @@ int main(int argc, char *argv[])
   blanknumbered = BLANKNUMBERED_YES;
   numbered_option = NULL;
   headers_option = TRUE;
-  font_option = size_option = line_option = bls_option = tabin_option =
-    tabout_option = setup_option = language_option = (char *) NULL;
+  style_option = font_option = size_option = line_option = bls_option =
+    tabin_option = tabout_option = setup_option = language_option =(char *)NULL;
   if( argc == 1 )
   { PrintUsage();
     exit(1);
@@ -5067,7 +5069,7 @@ int main(int argc, char *argv[])
      
 	/* read name of input file */
 	if( !raw_seen )
-	{ fprintf(err_fp, "%s: -i illegal with -r\n", ErrorHeader());
+	{ fprintf(err_fp, "%s: -i illegal without -r\n", ErrorHeader());
 	  exit(1);
 	}
 	if( in_fp != NULL )
@@ -5307,8 +5309,7 @@ int main(int argc, char *argv[])
 	{
 	  if( languages[i]->names[j] == (char *) NULL )
 	    i++, j = 0;
-	  else if( strcmp( (char *) languages[i]->names[j],
-		(char *) language_option) == 0 )
+	  else if( strcmp(languages[i]->names[j], language_option) == 0 )
 	    lang = languages[i];
 	  else
 	    j++;
@@ -5366,6 +5367,7 @@ int main(int argc, char *argv[])
     SetupLanguage(lang);
     line_pos = 1;
     curr_line[line_pos] = '\n';  /* forces line read */
+    curr_line[line_pos + 1] = '\0';
     line_num = 0;
     NextChar();
     Process(lang, (TOKEN *) NULL, U "");
diff --git a/whatsnew b/whatsnew
index d0e8669..0b69750 100644
--- a/whatsnew
+++ b/whatsnew
@@ -541,4 +541,13 @@ Changes and new features introduced in Version 3.37 [September 2008]
    able to think of a case where it would cause trouble.  If you find
    a problem with it, please let me know.
 
+Changes and new features introduced in Version 3.38 [October 2008]
+
+   Bug fixes:
+     Fixed my bungled installation of Bader's patch allowing EPS previews
+     Fiddled with prg2lout.c hoping to fix its intermittent crash bug
+   Converted "non-zero exit status of filter" from a fatal error to a
+     warning, so the unfixed prg2lout error has fewer repercussions
+
+
 Jeff Kingston
diff --git a/z01.c b/z01.c
index 85ad841..61dd30a 100644
--- a/z01.c
+++ b/z01.c
@@ -1,6 +1,6 @@
 /*@z01.c:Supervise:StartSym, AllowCrossDb, etc.@******************************/
 /*                                                                           */
-/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.37)                       */
+/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.38)                       */
 /*  COPYRIGHT (C) 1991, 2008 Jeffrey H. Kingston                             */
 /*                                                                           */
 /*  Jeffrey H. Kingston (jeff@it.usyd.edu.au)                                */
diff --git a/z02.c b/z02.c
index 7a29b96..f7e197c 100644
--- a/z02.c
+++ b/z02.c
@@ -1,6 +1,6 @@
 /*@z02.c:Lexical Analyser:Declarations@***************************************/
 /*                                                                           */
-/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.37)                       */
+/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.38)                       */
 /*  COPYRIGHT (C) 1991, 2008 Jeffrey H. Kingston                             */
 /*                                                                           */
 /*  Jeffrey H. Kingston (jeff@it.usyd.edu.au)                                */
diff --git a/z03.c b/z03.c
index 68aef66..9077cf6 100644
--- a/z03.c
+++ b/z03.c
@@ -1,6 +1,6 @@
 /*@z03.c:File Service:Declarations, no_fpos@******************************** */
 /*                                                                           */
-/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.37)                       */
+/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.38)                       */
 /*  COPYRIGHT (C) 1991, 2008 Jeffrey H. Kingston                             */
 /*                                                                           */
 /*  Jeffrey H. Kingston (jeff@it.usyd.edu.au)                                */
diff --git a/z04.c b/z04.c
index 43f63dc..5007c16 100644
--- a/z04.c
+++ b/z04.c
@@ -1,6 +1,6 @@
 /*@z04.c:Token Service:NewToken(), CopyTokenList()@***************************/
 /*                                                                           */
-/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.37)                       */
+/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.38)                       */
 /*  COPYRIGHT (C) 1991, 2008 Jeffrey H. Kingston                             */
 /*                                                                           */
 /*  Jeffrey H. Kingston (jeff@it.usyd.edu.au)                                */
diff --git a/z05.c b/z05.c
index 665cd7e..ea534b3 100644
--- a/z05.c
+++ b/z05.c
@@ -1,6 +1,6 @@
 /*@z05.c:Read Definitions:ReadLangDef()@**************************************/
 /*                                                                           */
-/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.37)                       */
+/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.38)                       */
 /*  COPYRIGHT (C) 1991, 2008 Jeffrey H. Kingston                             */
 /*                                                                           */
 /*  Jeffrey H. Kingston (jeff@it.usyd.edu.au)                                */
diff --git a/z06.c b/z06.c
index 8e4913b..b5076c9 100644
--- a/z06.c
+++ b/z06.c
@@ -1,6 +1,6 @@
 /*@z06.c:Parser:PushObj(), PushToken(), etc.@*********************************/
 /*                                                                           */
-/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.37)                       */
+/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.38)                       */
 /*  COPYRIGHT (C) 1991, 2008 Jeffrey H. Kingston                             */
 /*                                                                           */
 /*  Jeffrey H. Kingston (jeff@it.usyd.edu.au)                                */
diff --git a/z07.c b/z07.c
index 3fa159a..419831c 100644
--- a/z07.c
+++ b/z07.c
@@ -1,6 +1,6 @@
 /*@z07.c:Object Service:SplitIsDefinite(), DisposeObject()@*******************/
 /*                                                                           */
-/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.37)                       */
+/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.38)                       */
 /*  COPYRIGHT (C) 1991, 2008 Jeffrey H. Kingston                             */
 /*                                                                           */
 /*  Jeffrey H. Kingston (jeff@it.usyd.edu.au)                                */
diff --git a/z08.c b/z08.c
index ad124ff..0041b64 100644
--- a/z08.c
+++ b/z08.c
@@ -1,6 +1,6 @@
 /*@z08.c:Object Manifest:ReplaceWithSplit()@**********************************/
 /*                                                                           */
-/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.37)                       */
+/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.38)                       */
 /*  COPYRIGHT (C) 1991, 2008 Jeffrey H. Kingston                             */
 /*                                                                           */
 /*  Jeffrey H. Kingston (jeff@it.usyd.edu.au)                                */
diff --git a/z09.c b/z09.c
index 1d01ec9..ad3564d 100644
--- a/z09.c
+++ b/z09.c
@@ -1,6 +1,6 @@
 /*@z09.c:Closure Expansion:SearchEnv()@***************************************/
 /*                                                                           */
-/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.37)                       */
+/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.38)                       */
 /*  COPYRIGHT (C) 1991, 2008 Jeffrey H. Kingston                             */
 /*                                                                           */
 /*  Jeffrey H. Kingston (jeff@it.usyd.edu.au)                                */
diff --git a/z10.c b/z10.c
index f7905a3..aac6e72 100644
--- a/z10.c
+++ b/z10.c
@@ -1,6 +1,6 @@
 /*@z10.c:Cross References:CrossInit(), CrossMake()@***************************/
 /*                                                                           */
-/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.37)                       */
+/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.38)                       */
 /*  COPYRIGHT (C) 1991, 2008 Jeffrey H. Kingston                             */
 /*                                                                           */
 /*  Jeffrey H. Kingston (jeff@it.usyd.edu.au)                                */
diff --git a/z11.c b/z11.c
index 7253fe5..2fa6ae9 100644
--- a/z11.c
+++ b/z11.c
@@ -1,6 +1,6 @@
 /*@z11.c:Style Service:EchoStyle()@*******************************************/
 /*                                                                           */
-/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.37)                       */
+/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.38)                       */
 /*  COPYRIGHT (C) 1991, 2008 Jeffrey H. Kingston                             */
 /*                                                                           */
 /*  Jeffrey H. Kingston (jeff@it.usyd.edu.au)                                */
diff --git a/z12.c b/z12.c
index b1af7da..eb75409 100644
--- a/z12.c
+++ b/z12.c
@@ -1,6 +1,6 @@
 /*@z12.c:Size Finder:MinSize()@***********************************************/
 /*                                                                           */
-/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.37)                       */
+/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.38)                       */
 /*  COPYRIGHT (C) 1991, 2008 Jeffrey H. Kingston                             */
 /*                                                                           */
 /*  Jeffrey H. Kingston (jeff@it.usyd.edu.au)                                */
diff --git a/z13.c b/z13.c
index 752f5fc..e79cacd 100644
--- a/z13.c
+++ b/z13.c
@@ -1,6 +1,6 @@
 /*@z13.c:Object Breaking:BreakJoinedGroup()@**********************************/
 /*                                                                           */
-/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.37)                       */
+/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.38)                       */
 /*  COPYRIGHT (C) 1991, 2008 Jeffrey H. Kingston                             */
 /*                                                                           */
 /*  Jeffrey H. Kingston (jeff@it.usyd.edu.au)                                */
diff --git a/z14.c b/z14.c
index 1e04a14..cbeae7c 100644
--- a/z14.c
+++ b/z14.c
@@ -1,6 +1,6 @@
 /*@z14.c:Fill Service:Declarations@*******************************************/
 /*                                                                           */
-/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.37)                       */
+/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.38)                       */
 /*  COPYRIGHT (C) 1991, 2008 Jeffrey H. Kingston                             */
 /*                                                                           */
 /*  Jeffrey H. Kingston (jeff@it.usyd.edu.au)                                */
diff --git a/z15.c b/z15.c
index 9c8c5b1..193f0bc 100644
--- a/z15.c
+++ b/z15.c
@@ -1,6 +1,6 @@
 /*@z15.c:Size Constraints:MinConstraint(), EnlargeToConstraint()@*************/
 /*                                                                           */
-/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.37)                       */
+/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.38)                       */
 /*  COPYRIGHT (C) 1991, 2008 Jeffrey H. Kingston                             */
 /*                                                                           */
 /*  Jeffrey H. Kingston (jeff@it.usyd.edu.au)                                */
diff --git a/z16.c b/z16.c
index c60871c..7d6a215 100644
--- a/z16.c
+++ b/z16.c
@@ -1,6 +1,6 @@
 /*@z16.c:Size Adjustment:SetNeighbours(), CatAdjustSize()@********************/
 /*                                                                           */
-/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.37)                       */
+/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.38)                       */
 /*  COPYRIGHT (C) 1991, 2008 Jeffrey H. Kingston                             */
 /*                                                                           */
 /*  Jeffrey H. Kingston (jeff@it.usyd.edu.au)                                */
diff --git a/z17.c b/z17.c
index fc9f61b..06a8fc0 100644
--- a/z17.c
+++ b/z17.c
@@ -1,6 +1,6 @@
 /*@z17.c:Gap Widths:GetGap()@*************************************************/
 /*                                                                           */
-/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.37)                       */
+/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.38)                       */
 /*  COPYRIGHT (C) 1991, 2008 Jeffrey H. Kingston                             */
 /*                                                                           */
 /*  Jeffrey H. Kingston (jeff@it.usyd.edu.au)                                */
diff --git a/z18.c b/z18.c
index 5b9fc2f..915a138 100644
--- a/z18.c
+++ b/z18.c
@@ -1,6 +1,6 @@
 /*@z18.c:Galley Transfer:Declarations@****************************************/
 /*                                                                           */
-/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.37)                       */
+/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.38)                       */
 /*  COPYRIGHT (C) 1991, 2008 Jeffrey H. Kingston                             */
 /*                                                                           */
 /*  Jeffrey H. Kingston (jeff@it.usyd.edu.au)                                */
diff --git a/z19.c b/z19.c
index bfe8efd..622f70b 100644
--- a/z19.c
+++ b/z19.c
@@ -1,6 +1,6 @@
 /*@z19.c:Galley Attaching:DetachGalley()@*************************************/
 /*                                                                           */
-/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.37)                       */
+/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.38)                       */
 /*  COPYRIGHT (C) 1991, 2008 Jeffrey H. Kingston                             */
 /*                                                                           */
 /*  Jeffrey H. Kingston (jeff@it.usyd.edu.au)                                */
diff --git a/z20.c b/z20.c
index d180f12..b8b437e 100644
--- a/z20.c
+++ b/z20.c
@@ -1,6 +1,6 @@
 /*@z20.c:Galley Flushing:DebugInnersNames()@**********************************/
 /*                                                                           */
-/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.37)                       */
+/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.38)                       */
 /*  COPYRIGHT (C) 1991, 2008 Jeffrey H. Kingston                             */
 /*                                                                           */
 /*  Jeffrey H. Kingston (jeff@it.usyd.edu.au)                                */
diff --git a/z21.c b/z21.c
index d58d803..e0e6cee 100644
--- a/z21.c
+++ b/z21.c
@@ -1,6 +1,6 @@
 /*@z21.c:Galley Maker:SizeGalley()@*******************************************/
 /*                                                                           */
-/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.37)                       */
+/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.38)                       */
 /*  COPYRIGHT (C) 1991, 2008 Jeffrey H. Kingston                             */
 /*                                                                           */
 /*  Jeffrey H. Kingston (jeff@it.usyd.edu.au)                                */
diff --git a/z22.c b/z22.c
index ceec47d..9116a99 100644
--- a/z22.c
+++ b/z22.c
@@ -1,6 +1,6 @@
 /*@z22.c:Galley Service:Interpose()@******************************************/
 /*                                                                           */
-/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.37)                       */
+/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.38)                       */
 /*  COPYRIGHT (C) 1991, 2008 Jeffrey H. Kingston                             */
 /*                                                                           */
 /*  Jeffrey H. Kingston (jeff@it.usyd.edu.au)                                */
diff --git a/z23.c b/z23.c
index 0943b03..b1f54ef 100644
--- a/z23.c
+++ b/z23.c
@@ -1,6 +1,6 @@
 /*@z23.c:Galley Printer:ScaleFactor()@****************************************/
 /*                                                                           */
-/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.37)                       */
+/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.38)                       */
 /*  COPYRIGHT (C) 1991, 2008 Jeffrey H. Kingston                             */
 /*                                                                           */
 /*  Jeffrey H. Kingston (jeff@it.usyd.edu.au)                                */
diff --git a/z24.c b/z24.c
index 9987629..6815701 100644
--- a/z24.c
+++ b/z24.c
@@ -1,6 +1,6 @@
 /*@z24.c:Print Service:PrintInit()@*******************************************/
 /*                                                                           */
-/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.37)                       */
+/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.38)                       */
 /*  COPYRIGHT (C) 1991, 2008 Jeffrey H. Kingston                             */
 /*                                                                           */
 /*  Jeffrey H. Kingston (jeff@it.usyd.edu.au)                                */
diff --git a/z25.c b/z25.c
index 81e2b1f..4443daa 100644
--- a/z25.c
+++ b/z25.c
@@ -1,6 +1,6 @@
 /*@z25.c:Object Echo:aprint(), cprint(), printnum()@**************************/
 /*                                                                           */
-/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.37)                       */
+/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.38)                       */
 /*  COPYRIGHT (C) 1991, 2008 Jeffrey H. Kingston                             */
 /*                                                                           */
 /*  Jeffrey H. Kingston (jeff@it.usyd.edu.au)                                */
diff --git a/z26.c b/z26.c
index f77793b..e0bdd55 100644
--- a/z26.c
+++ b/z26.c
@@ -1,6 +1,6 @@
 /*@z26.c:Echo Service:BeginString()@******************************************/
 /*                                                                           */
-/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.37)                       */
+/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.38)                       */
 /*  COPYRIGHT (C) 1991, 2008 Jeffrey H. Kingston                             */
 /*                                                                           */
 /*  Jeffrey H. Kingston (jeff@it.usyd.edu.au)                                */
diff --git a/z27.c b/z27.c
index 4648167..d0c0d01 100644
--- a/z27.c
+++ b/z27.c
@@ -1,6 +1,6 @@
 /*@z27.c:Debug Service:Debug flags@*******************************************/
 /*                                                                           */
-/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.37)                       */
+/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.38)                       */
 /*  COPYRIGHT (C) 1991, 2008 Jeffrey H. Kingston                             */
 /*                                                                           */
 /*  Jeffrey H. Kingston (jeff@it.usyd.edu.au)                                */
diff --git a/z28.c b/z28.c
index 4b2f6c6..be7a012 100644
--- a/z28.c
+++ b/z28.c
@@ -1,6 +1,6 @@
 /*@z28.c:Error Service:ErrorInit(), ErrorSeen()@******************************/
 /*                                                                           */
-/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.37)                       */
+/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.38)                       */
 /*  COPYRIGHT (C) 1991, 2008 Jeffrey H. Kingston                             */
 /*                                                                           */
 /*  Jeffrey H. Kingston (jeff@it.usyd.edu.au)                                */
diff --git a/z29.c b/z29.c
index 1f572ec..b70e2eb 100644
--- a/z29.c
+++ b/z29.c
@@ -1,6 +1,6 @@
 /*@z29.c:Symbol Table:Declarations, hash()@***********************************/
 /*                                                                           */
-/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.37)                       */
+/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.38)                       */
 /*  COPYRIGHT (C) 1991, 2008 Jeffrey H. Kingston                             */
 /*                                                                           */
 /*  Jeffrey H. Kingston (jeff@it.usyd.edu.au)                                */
diff --git a/z30.c b/z30.c
index e6caeb2..09be2f0 100644
--- a/z30.c
+++ b/z30.c
@@ -1,6 +1,6 @@
 /*@z30.c:Symbol uses:InsertUses()@********************************************/
 /*                                                                           */
-/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.37)                       */
+/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.38)                       */
 /*  COPYRIGHT (C) 1991, 2008 Jeffrey H. Kingston                             */
 /*                                                                           */
 /*  Jeffrey H. Kingston (jeff@it.usyd.edu.au)                                */
diff --git a/z31.c b/z31.c
index e233edd..0df7657 100644
--- a/z31.c
+++ b/z31.c
@@ -1,6 +1,6 @@
 /*@z31.c:Memory Allocator:DebugMemory()@**************************************/
 /*                                                                           */
-/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.37)                       */
+/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.38)                       */
 /*  COPYRIGHT (C) 1991, 2008 Jeffrey H. Kingston                             */
 /*                                                                           */
 /*  Jeffrey H. Kingston (jeff@it.usyd.edu.au)                                */
diff --git a/z32.c b/z32.c
index e488004..115f50d 100644
--- a/z32.c
+++ b/z32.c
@@ -1,6 +1,6 @@
 /*@z32.c:Counter Service:Next()@**********************************************/
 /*                                                                           */
-/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.37)                       */
+/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.38)                       */
 /*  COPYRIGHT (C) 1991, 2008 Jeffrey H. Kingston                             */
 /*                                                                           */
 /*  Jeffrey H. Kingston (jeff@it.usyd.edu.au)                                */
diff --git a/z33.c b/z33.c
index 051b9c1..39bafd5 100644
--- a/z33.c
+++ b/z33.c
@@ -1,6 +1,6 @@
 /*@z33.c:Database Service:OldCrossDb(), NewCrossDb(), SymToNum()@*************/
 /*                                                                           */
-/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.37)                       */
+/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.38)                       */
 /*  COPYRIGHT (C) 1991, 2008 Jeffrey H. Kingston                             */
 /*                                                                           */
 /*  Jeffrey H. Kingston (jeff@it.usyd.edu.au)                                */
diff --git a/z34.c b/z34.c
index 1be46bb..7fa6c75 100644
--- a/z34.c
+++ b/z34.c
@@ -1,6 +1,6 @@
 /*@z34.c:Rotation Service:Declarations@***************************************/
 /*                                                                           */
-/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.37)                       */
+/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.38)                       */
 /*  COPYRIGHT (C) 1991, 2008 Jeffrey H. Kingston                             */
 /*                                                                           */
 /*  Jeffrey H. Kingston (jeff@it.usyd.edu.au)                                */
diff --git a/z35.c b/z35.c
index 2c018e4..84ccfff 100644
--- a/z35.c
+++ b/z35.c
@@ -1,6 +1,6 @@
 /*@z35.c:Time Keeper: MomentSym(), TimeString()@******************************/
 /*                                                                           */
-/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.37)                       */
+/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.38)                       */
 /*  COPYRIGHT (C) 1991, 2008 Jeffrey H. Kingston                             */
 /*                                                                           */
 /*  Jeffrey H. Kingston (jeff@it.usyd.edu.au)                                */
diff --git a/z36.c b/z36.c
index 5da2bb3..0d4ff33 100644
--- a/z36.c
+++ b/z36.c
@@ -1,6 +1,6 @@
 /*@z36.c:Hyphenation: Declarations@*******************************************/
 /*                                                                           */
-/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.37)                       */
+/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.38)                       */
 /*  COPYRIGHT (C) 1991, 2008 Jeffrey H. Kingston                             */
 /*                                                                           */
 /*  Jeffrey H. Kingston (jeff@it.usyd.edu.au)                                */
diff --git a/z37.c b/z37.c
index 9f5cae5..14adabe 100644
--- a/z37.c
+++ b/z37.c
@@ -1,6 +1,6 @@
 /*@z37.c:Font Service:Declarations@*******************************************/
 /*                                                                           */
-/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.37)                       */
+/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.38)                       */
 /*  COPYRIGHT (C) 1991, 2008 Jeffrey H. Kingston                             */
 /*                                                                           */
 /*  Jeffrey H. Kingston (jeff@it.usyd.edu.au)                                */
diff --git a/z38.c b/z38.c
index 469c8be..a3478f4 100644
--- a/z38.c
+++ b/z38.c
@@ -1,6 +1,6 @@
 /*@z38.c:Character Mappings:Declarations@*************************************/
 /*                                                                           */
-/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.37)                       */
+/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.38)                       */
 /*  COPYRIGHT (C) 1991, 2008 Jeffrey H. Kingston                             */
 /*                                                                           */
 /*  Jeffrey H. Kingston (jeff@it.usyd.edu.au)                                */
diff --git a/z39.c b/z39.c
index 3174c10..880ed69 100644
--- a/z39.c
+++ b/z39.c
@@ -1,6 +1,6 @@
 /*@z39.c:String Handler:AsciiToFull(), StringEqual(), etc.@*******************/
 /*                                                                           */
-/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.37)                       */
+/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.38)                       */
 /*  COPYRIGHT (C) 1991, 2008 Jeffrey H. Kingston                             */
 /*                                                                           */
 /*  Jeffrey H. Kingston (jeff@it.usyd.edu.au)                                */
diff --git a/z40.c b/z40.c
index 41b66c5..059b190 100644
--- a/z40.c
+++ b/z40.c
@@ -1,6 +1,6 @@
 /*@z40.c:Filter Handler:FilterInit()@*****************************************/
 /*                                                                           */
-/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.37)                       */
+/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.38)                       */
 /*  COPYRIGHT (C) 1991, 2008 Jeffrey H. Kingston                             */
 /*                                                                           */
 /*  Jeffrey H. Kingston (jeff@it.usyd.edu.au)                                */
@@ -148,7 +148,7 @@ OBJECT FilterExecute(OBJECT x, FULL_CHAR *command, OBJECT env)
   }
   else
   {
-    /* execute the command, echo error messages, and exit if status problem */
+    /* execute the command, echo error messages, and check status */
     status = system( (char *) command);
     err_fp = StringFOpen(FILTER_ERR, READ_FILE);
     if( err_fp != NULL )
@@ -157,24 +157,30 @@ OBJECT FilterExecute(OBJECT x, FULL_CHAR *command, OBJECT env)
       fclose(err_fp);
       StringRemove(FILTER_ERR);
     }
-    if( status != 0 )
-      Error(40, 4, "failure (non-zero status) of filter: %s",
-        FATAL, &fpos(x), command);
-
-    /* read in output of system command as a Lout object */
-    Child(scope_snapshot, LastDown(x));
-    LoadScopeSnapshot(scope_snapshot);
-    debug0(DFS, D, "  calling DefineFile from FilterExecute");
-    filter_out_file =
-      DefineFile(string(sym_body(FilterOutSym)), STR_EMPTY, &fpos(x),
-        FILTER_FILE, SOURCE_PATH);
-    LexPush(filter_out_file, 0, FILTER_FILE, 1, FALSE);
-    t = NewToken(BEGIN, &fpos(x), 0, 0, BEGIN_PREC, FilterOutSym);
-    res = Parse(&t, nilobj, FALSE, FALSE);
-    LexPop();
-    ClearScopeSnapshot(scope_snapshot);
-    StringRemove(string(sym_body(FilterOutSym)));
-    sym_body(FilterOutSym) = filter_out_filename;
+    if( status == 0 )
+    {
+      /* system command succeeded; read in its output as a Lout object */
+      Child(scope_snapshot, LastDown(x));
+      LoadScopeSnapshot(scope_snapshot);
+      debug0(DFS, D, "  calling DefineFile from FilterExecute");
+      filter_out_file =
+	DefineFile(string(sym_body(FilterOutSym)), STR_EMPTY, &fpos(x),
+	  FILTER_FILE, SOURCE_PATH);
+      LexPush(filter_out_file, 0, FILTER_FILE, 1, FALSE);
+      t = NewToken(BEGIN, &fpos(x), 0, 0, BEGIN_PREC, FilterOutSym);
+      res = Parse(&t, nilobj, FALSE, FALSE);
+      LexPop();
+      ClearScopeSnapshot(scope_snapshot);
+      StringRemove(string(sym_body(FilterOutSym)));
+      sym_body(FilterOutSym) = filter_out_filename;
+    }
+    else
+    {
+      /* system command failed; print warning message and substitute "??" */
+      Error(40, 4, "failure (status %d) of filter: %s", WARN, &fpos(x),
+	status, command);
+      res = MakeWord(WORD, STR_NOCROSS, &fpos(x));  /* i.e. "??" */
+    }
   }
 
   debug1(DFH, D, "FilterExecute returning %s", EchoObject(res));
diff --git a/z41.c b/z41.c
index 034a76c..1dae5df 100644
--- a/z41.c
+++ b/z41.c
@@ -1,6 +1,6 @@
 /*@z41.c:Object Input-Output:AppendToFile, ReadFromFile@**********************/
 /*                                                                           */
-/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.37)                       */
+/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.38)                       */
 /*  COPYRIGHT (C) 1991, 2008 Jeffrey H. Kingston                             */
 /*                                                                           */
 /*  Jeffrey H. Kingston (jeff@it.usyd.edu.au)                                */
diff --git a/z42.c b/z42.c
index 0d56db4..79af851 100644
--- a/z42.c
+++ b/z42.c
@@ -1,6 +1,6 @@
 /*@z42.c:Colour Service:ColourChange, ColourCommand@**************************/
 /*                                                                           */
-/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.37)                       */
+/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.38)                       */
 /*  COPYRIGHT (C) 1991, 2008 Jeffrey H. Kingston                             */
 /*                                                                           */
 /*  Jeffrey H. Kingston (jeff@it.usyd.edu.au)                                */
diff --git a/z43.c b/z43.c
index 5527c75..19a8cfd 100644
--- a/z43.c
+++ b/z43.c
@@ -1,6 +1,6 @@
 /*@z43.c:Language Service:LanguageChange, LanguageString@*********************/
 /*                                                                           */
-/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.37)                       */
+/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.38)                       */
 /*  COPYRIGHT (C) 1991, 2008 Jeffrey H. Kingston                             */
 /*                                                                           */
 /*  Jeffrey H. Kingston (jeff@it.usyd.edu.au)                                */
diff --git a/z44.c b/z44.c
index bad6e54..d8868e7 100644
--- a/z44.c
+++ b/z44.c
@@ -1,6 +1,6 @@
 /*@z44.c:Vertical Hyphenation:VerticalHyphenate()@****************************/
 /*                                                                           */
-/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.37)                       */
+/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.38)                       */
 /*  COPYRIGHT (C) 1991, 2008 Jeffrey H. Kingston                             */
 /*                                                                           */
 /*  Jeffrey H. Kingston (jeff@it.usyd.edu.au)                                */
diff --git a/z45.c b/z45.c
index 1290748..bb1dfe3 100644
--- a/z45.c
+++ b/z45.c
@@ -1,6 +1,6 @@
 /*@z45.c:External Sort:SortFile()@********************************************/
 /*                                                                           */
-/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.37)                       */
+/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.38)                       */
 /*  COPYRIGHT (C) 1991, 2008 Jeffrey H. Kingston                             */
 /*                                                                           */
 /*  Jeffrey H. Kingston (jeff@it.usyd.edu.au)                                */
diff --git a/z46.c b/z46.c
index d51ff75..0f785e0 100644
--- a/z46.c
+++ b/z46.c
@@ -1,6 +1,6 @@
 /*@z46.c:Optimal Galleys:FindOptimize()@**************************************/
 /*                                                                           */
-/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.37)                       */
+/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.38)                       */
 /*  COPYRIGHT (C) 1991, 2008 Jeffrey H. Kingston                             */
 /*                                                                           */
 /*  Jeffrey H. Kingston (jeff@it.usyd.edu.au)                                */
diff --git a/z47.c b/z47.c
index 454770b..5050349 100644
--- a/z47.c
+++ b/z47.c
@@ -1,6 +1,6 @@
 /*@z47.c:Environment Table:EnvReadRetrieve()@*********************************/
 /*                                                                           */
-/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.37)                       */
+/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.38)                       */
 /*  COPYRIGHT (C) 1991, 2008 Jeffrey H. Kingston                             */
 /*                                                                           */
 /*  Jeffrey H. Kingston (jeff@it.usyd.edu.au)                                */
diff --git a/z48.c b/z48.c
index b4bc942..b5c0029 100644
--- a/z48.c
+++ b/z48.c
@@ -1,6 +1,6 @@
 /*@z48.c:PDF back end@********************************************************/
 /*                                                                           */
-/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.37)                       */
+/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.38)                       */
 /*  COPYRIGHT (C) 1991, 2008 Jeffrey H. Kingston                             */
 /*                                                                           */
 /*  Jeffrey H. Kingston (jeff@it.usyd.edu.au)                                */
diff --git a/z49.c b/z49.c
index d14edfe..9638902 100644
--- a/z49.c
+++ b/z49.c
@@ -1,6 +1,6 @@
 /*@z49.c:PostScript Back End:PS_BackEnd@**************************************/
 /*                                                                           */
-/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.37)                       */
+/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.38)                       */
 /*  COPYRIGHT (C) 1991, 2008 Jeffrey H. Kingston                             */
 /*                                                                           */
 /*  Jeffrey H. Kingston (jeff@it.usyd.edu.au)                                */
@@ -603,6 +603,7 @@ static void PS_PrintEPSFile(FILE *fp, FILE_POS *pos, BOOLEAN strip_all)
 
   assert( fp != NULL, "PS_PrintEPSFile: fp!" );
   /* state = (ReadOneLine(fp, buff, MAX_LINE) == 0) ? FINISHED : SKIPPING; */
+  PS_FindEPSSegment(fp, &len);   /* left out by Jeff's mistake in 3.37 */
   state = (ReadOneBinaryLine(fp, buff, MAX_LINE, &count, &len) == 0) ?
     FINISHED : SKIPPING;
   while( state != FINISHED ) switch(state)
diff --git a/z50.c b/z50.c
index f2e8f62..b9a2d00 100644
--- a/z50.c
+++ b/z50.c
@@ -1,6 +1,6 @@
 /*@z50.c:PDF Back End:PDF_BackEnd@********************************************/
 /*                                                                           */
-/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.37)                       */
+/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.38)                       */
 /*  COPYRIGHT (C) 1991, 2008 Jeffrey H. Kingston                             */
 /*                                                                           */
 /*  Jeffrey H. Kingston (jeff@it.usyd.edu.au)                                */
diff --git a/z51.c b/z51.c
index 871e343..45e0a9c 100644
--- a/z51.c
+++ b/z51.c
@@ -1,6 +1,6 @@
 /*@z51.c:Plain Text Back End:Plain_BackEnd@***********************************/
 /*                                                                           */
-/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.37)                       */
+/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.38)                       */
 /*  COPYRIGHT (C) 1991, 2008 Jeffrey H. Kingston                             */
 /*                                                                           */
 /*  Jeffrey H. Kingston (jeff@it.usyd.edu.au)                                */
diff --git a/z52.c b/z52.c
index a33fbca..74da208 100644
--- a/z52.c
+++ b/z52.c
@@ -1,6 +1,6 @@
 /*@z52.c:Texture Service:TextureChange, TextureCommand@***********************/
 /*                                                                           */
-/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.37)                       */
+/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.38)                       */
 /*  COPYRIGHT (C) 1991, 2008 Jeffrey H. Kingston                             */
 /*                                                                           */
 /*  Jeffrey H. Kingston (jeff@it.usyd.edu.au)                                */