Index: z44.c
===================================================================
RCS file: /home/uwe/repository/lout/z44.c,v
retrieving revision 1.1.1.2
diff -u -u -r1.1.1.2 z44.c
--- z44.c	1998/04/08 18:26:40	1.1.1.2
+++ z44.c	1998/10/23 15:40:05
@@ -428,8 +428,13 @@
   else
   {
     /* build the two subtrees */
+#if HACK_MERGE	/* build a list */
+    l = BuildMergeTree(1, x, lenv, lact);
+    r = BuildMergeTree(n - 1, x, &env, &act);
+#else		/* build a balanced tree  */
     l = BuildMergeTree(n/2, x, lenv, lact);
-    r = BuildMergeTree( n - n/2, x, &env, &act);
+    r = BuildMergeTree(n - n/2, x, &env, &act);
+#endif
 
     /* set merge to new @Merge closure */
     for( link = Down(act);  link != act;  link = NextDown(link) )