diff -r 1d99f1d3ae53 -r 23b6b0033454 test/Tools/isac/Interpret/ctree.sml
--- a/test/Tools/isac/Interpret/ctree.sml	Mon Jul 18 09:51:51 2011 +0200
+++ b/test/Tools/isac/Interpret/ctree.sml	Tue Jul 19 09:43:01 2011 +0200
@@ -118,7 +118,7 @@
 "ctree.sml-------------- cappend on complete ctree from above ----";
 val (pt', cuts) = cappend_form pt [1] (e_istate, e_ctxt) (str2term "Inform[1]");
 "----------------------------------------------------------------/";
-(*========== inhibit exn WN110319 ==============================================
+
 val (p,_,f,nxt,_,pt) = me nxt p [1] pt(*cappend_form: pos =[1]*);
 val (p,_,f,nxt,_,pt) = me nxt p [1] pt(*cappend_atomic: pos =[1]*);
 val (p,_,f,nxt,_,pt) = me nxt p [1] pt(*cappend_atomic: pos =[2]*);
@@ -144,6 +144,7 @@
 else error "new behaviour in test: miniscript with mini-subpbl";
 
  show_pt pt;
+(*========== inhibit exn WN110319 ==============================================
 ============ inhibit exn WN110319 ============================================*)
 
 (*=== inhibit exn ?=============================================================