diff options
Diffstat (limited to 'src/interp/msgdb.boot')
-rw-r--r-- | src/interp/msgdb.boot | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/interp/msgdb.boot b/src/interp/msgdb.boot index 4f2b6b79..9e6556f8 100644 --- a/src/interp/msgdb.boot +++ b/src/interp/msgdb.boot @@ -430,8 +430,10 @@ popSatOutput(newmode) == sayString FORMAT(nil, '"What is: ~a", $saturnMode) $saturnMode -systemErrorHere functionName == - keyedSystemError("S2GE0017",[functionName]) +systemErrorHere what == + if not atom what then + what := [first what, " with: ", :rest what] + keyedSystemError("S2GE0017",[what]) isKeyedMsgInDb(key,dbName) == $msgDatabaseName : fluid := pathname dbName |