aboutsummaryrefslogtreecommitdiff
path: root/src/interp/i-object.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/i-object.boot')
-rw-r--r--src/interp/i-object.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/i-object.boot b/src/interp/i-object.boot
index 460b76c4..c8b9774d 100644
--- a/src/interp/i-object.boot
+++ b/src/interp/i-object.boot
@@ -442,7 +442,7 @@ srcPosDisplay(sp) ==
getFlagArgsPos t ==
VECP t => getAtree(t, 'flagArgsPos)
atom t => keyedSystemError("S2II0001",[t])
- getFlagArgsPos car t
+ getFlagArgsPos first t
--% Transfer of VAT properties.