diff --git a/sc/ScelDocument.sc b/sc/ScelDocument.sc
index 9fe8f38..737e87b 100644
--- a/sc/ScelDocument.sc
+++ b/sc/ScelDocument.sc
@@ -327,7 +327,12 @@ ScelDocument : Document{
 	}
 	
 	*current {
-		^EmacsDocument.current.sceld;
+		var cur = EmacsDocument.current;
+		if ( cur.isNil ){
+			^cur;
+		}{
+			^cur.sceld;
+		}
 	}	
 
 	*prGetIndexOfListener{