--- sml/trunk/src/cm/paths/abspath.sml	1999/07/02 08:38:07	365
+++ sml/trunk/src/cm/paths/abspath.sml	1999/07/02 14:13:29	366
@@ -11,8 +11,8 @@
     type t
     type ord_key = t
 
-    val revalidateCwd : unit -> unit
     val newEra : unit -> unit
+    val revalidateCwd : unit -> unit
 
     val cwdContext: unit -> context
     val sameDirContext: t -> context
@@ -125,7 +125,10 @@
 		end
 
 	fun cwdContext () =
-	    THEN_CWD { stamp = cwdStamp (), name = cwdName (), id = cwdId () }
+	    (revalidateCwd ();
+	     THEN_CWD { stamp = cwdStamp (),
+		        name = cwdName (),
+			id = cwdId () })
 
 	fun sameDirContext p = DIR_OF p

<script type="text/javascript">//<![CDATA[
		function toggle_ffErrors() {
			var errorsblock = document.getElementById("ffErrorsBlock");
			var errorsgroup = document.getElementById("ffErrors");
			if (errorsblock.style.display == "none") {
				errorsblock.style.display = "block";
				errorsgroup.style.right = "10px";
			} else {
				errorsblock.style.display = "none";
				errorsgroup.style.right = "300px";
			}
		}
//]]></script>
<div id="ffErrors">
<a href="javascript:toggle_ffErrors();">Click to toggle</a>
<div id="ffErrorsBlock">
	<div class="error">does not end with &lt;/html&gt; tag</div>
	<div class="error">does not end with &lt;/body&gt; tag</div>
	<div class="info">The output has ended thus:  cwdStamp (),
+		        name = cwdName (),
+			id = cwdId () })
 
 	fun sameDirContext p = DIR_OF p</div>
</div></div>
</body></html>