1.1 --- a/src/Tools/isac/Interpret/script.sml	Tue Sep 28 07:28:10 2010 +0200
     1.2 +++ b/src/Tools/isac/Interpret/script.sml	Tue Sep 28 07:37:12 2010 +0200
     1.3 @@ -440,7 +440,7 @@
     1.4  				Free (dI',_) $ 
     1.5  			(Const ("Pair",_) $ pI' $ mI')) $ ags') =
     1.6  (*compare "| assod _ (Subproblem'"*)
     1.7 -    let val dI = ((implode o drop_last(*.._*) o explode) dI')^".thy";
     1.8 +    let val dI = ((implode o drop_last(*.."'"*) o explode) dI')(*^".thy"*);
     1.9          val thy = maxthy (assoc_thy dI) (rootthy pt);
    1.10  	val pI = ((map (de_esc_underscore o free2str)) o isalist2list) pI';
    1.11  	val mI = ((map (de_esc_underscore o free2str)) o isalist2list) mI';
    1.12 @@ -708,7 +708,7 @@
    1.13  			Free (dI',_) $ 
    1.14  			(Const ("Pair",_) $ pI' $ mI')) $ ags') =
    1.15  (*compare "| stac2tac_ thy (Const ("Script.SubProblem",_)"*)
    1.16 -    let val dI = ((implode o drop_last o explode) dI')^".thy";
    1.17 +    let val dI = ((implode o drop_last(*.."'"*) o explode) dI')(*^".thy"*);
    1.18          val thy = maxthy (assoc_thy dI) (rootthy pt);
    1.19  	val pI = ((map (de_esc_underscore o free2str)) o isalist2list) pI';
    1.20  	val mI = ((map (de_esc_underscore o free2str)) o isalist2list) mI';