I was suspecting that some naughty person has altered a core class. I am going to have to hunt around for all the code that depends on this and fix it.
Debugger Stack Trace Report:
Error String: 'UndefinedObject does not understand <='
Resumable: false
UIProcess
Name: (23/09/2019 10:16:09 AM)
Process State: suspended
Priority: 3
Executing in: LCTime>>#format_l:date:time:
System Configuration Dump
Copyright:
VA Smalltalk V9.1 (32-bit); Image: 9.1 [413]
VM Timestamp: 4.0, 07/18/18 (100)
(C) Copyright Instantiations 1994, 2018. All rights reserved.
(C) Copyright International Business Machines Corp. 1994, 2006. All rights reserved.
Time: 1:23:25 PM
Date: 23/09/2019
Platform:
Virtual machine: ES
Bytecode version: 4.0
Manager version: 4.00
'OS' subsystem: 'WIN32s'
'CLIM' subsystem: 'ES'
'CP' subsystem: 'WIN32s'
'CLDT' subsystem: 'ES'
'CFS' subsystem: 'WIN32s'
'SCI' subsystem: 'WIN'
'CW' subsystem: 'WIN32s'
'CPM' subsystem: 'ES'
'CG' subsystem: 'WIN32s'
'CPIC' subsystem: 'WIN32s'
Current user: vgnet\vince.refiti
Connected Library:
Pathname: xxxx :: c:\Vast9.1\tims.dat
Library version: 6
Size of library:
3166315216 bytes
Has consistent EOF: true
Acquire read locks: false
Single user mode: false
Server address: xxxx
'
Library Access:
Host system name: None
Use release lock mode: true
Native primitives library:
Emsrv primitives library:
Memory:
Total allocation: 119725652 bytes
Available: 2324700 bytes
Fixed Space: 31716 bytes
New Space: 893556 bytes
Old Space: 1430532 bytes
=============<STACK TRACE BEGINS>============
[] in <optimized block>(ExceptionalEvent class)>>#initializeSystemExceptions
signal=Signal on Exception: (ExError) An error has occurred.
Signal>>#evaluate:
self=Signal on Exception: (ExError) An error has occurred.
aBlock=[] in ExceptionalEvent class>>#initializeSystemExceptions
Signal>>#evaluateDefaultHandler:
self=Signal on Exception: (ExError) An error has occurred.
aBlock=[] in ExceptionalEvent class>>#initializeSystemExceptions
ExceptionalEvent>>#applyDefaultHandler:
self=Exception: (ExError) An error has occurred.
aSignal=Signal on Exception: (ExError) An error has occurred.
exception=Exception: (ExError) An error has occurred.
ExceptionalEvent>>#signalFor:
self=Exception: (ExError) An error has occurred.
aSignalOrExceptionSelector=Signal on Exception: (ExError) An error has occurred.
handler=nil
ExceptionalEvent>>#signalWithArguments:
self=Exception: (ExError) An error has occurred.
arguments=('UndefinedObject does not understand <=')
ExceptionalEvent>>#signalWith:
self=Exception: (ExError) An error has occurred.
arg1='UndefinedObject does not understand <='
UndefinedObject(Object)>>#error:
self=nil
aString='UndefinedObject does not understand <='
MessageNotUnderstood>>#defaultAction
self=Signal on Exception: (ExMessageNotUnderstood) An exception has occurred
[] in <optimized block>(Exception class)>>#newExceptionalEvent
signal=Signal on Exception: (ExMessageNotUnderstood) An exception has occurred
MessageNotUnderstood(Exception)>>#evaluateDefaultHandler:
self=Signal on Exception: (ExMessageNotUnderstood) An exception has occurred
aBlock=[] in Exception class>>#newExceptionalEvent
ExceptionalEvent>>#applyDefaultHandler:
self=Exception: (ExMessageNotUnderstood) An exception has occurred
aSignal=Signal on Exception: (ExMessageNotUnderstood) An exception has occurred
exception=Exception: (ExMessageNotUnderstood) An exception has occurred
ExceptionalEvent>>#signalFor:
self=Exception: (ExMessageNotUnderstood) An exception has occurred
aSignalOrExceptionSelector=Signal on Exception: (ExMessageNotUnderstood) An exception has occurred
handler=nil
MessageNotUnderstood(Exception)>>#signal
self=Signal on Exception: (ExMessageNotUnderstood) An exception has occurred
MessageNotUnderstood class(Exception class)>>#signalWith:
self=MessageNotUnderstood
signallerTag=(nil Message (#<=, (12)))
UndefinedObject(Object)>>#doesNotUnderstand:
self=nil
aMessage=Message (#<=, (12))
LCTime>>#format_l:date:time:
self=a LCTime
aStream=a WriteStream
date=nil
time=Could not print receiver
hours=nil
[] in LCTime>>#printDate:time:on:usingFormat:
self=a LCTime
aDate=nil
aTime=Could not print receiver
aStream=a WriteStream
aFormat=(#format_l:date:time: ':' #format_M:date:time: ':' #format_S:date:time: ' ' #format_p:date:time:)
s=#format_l:date:time:
Array(ArrayedCollection)>>#do:
self=(#format_l:date:time: ':' #format_M:date:time: ':' #format_S:date:time: ' ' #format_p:date:time:)
aBlock=[] in LCTime>>#printDate:time:on:usingFormat:
LCTime>>#printDate:time:on:usingFormat:
self=a LCTime
aDate=nil
aTime=Could not print receiver
aStream=a WriteStream
aFormat=(#format_l:date:time: ':' #format_M:date:time: ':' #format_S:date:time: ' ' #format_p:date:time:)
LCTime>>#printTime:on:
self=a LCTime
aTime=Could not print receiver
aStream=a WriteStream
Time>>#printOn:
self=Could not print receiver
aStream=a WriteStream
Time(Object)>>#printString
self=Could not print receiver
writeStream=a WriteStream
StsTranscript(EtWindow)>>#displayEvaluatedSelectionIn:
self=a StsTranscript
textWidget=CwText(text)
yPosition=242
result=Could not print receiver
StsTranscript(EtWorkspace)>>#displayEvaluatedSelectionIn:
self=a StsTranscript
aTextWidget=CwText(text)
[] in StsTranscript(EtWorkspace)>>#menuEditDisplay
self=a StsTranscript
widget=CwText(text)
EmSystemConfiguration>>#showBusyCursorWhile:
self=an EmSystemConfiguration
aBlock=[] in EtWorkspace>>#menuEditDisplay
shell=CwTopLevelShell(Transcript)
window=a CgWindow
StsTranscript(EtWindow)>>#execShortOperation:
self=a StsTranscript
aBlock=[] in EtWorkspace>>#menuEditDisplay
StsTranscript(EtWorkspace)>>#menuEditDisplay
self=a StsTranscript
widget=CwText(text)
CwMenuPushButton>>#dispatchTo:
self=a CwMenuPushButton
receiver=a StsTranscript
selectorOrDirectedMessage=#menuEditDisplay
CwMenu>>#simpleCallback:clientData:callData:
self=a CwMenu
w=CwPushButton(button_6)
index=6
callData=CwAnyCallbackData(
reason -> 10
)
CwCallbackRec>>#callWith:callData:
self=a CwCallbackRec
aWidget=CwPushButton(button_6)
callData=CwAnyCallbackData(
reason -> 10
)
CwPushButton(CwBasicWidget)>>#callCallbackList:callData:
self=CwPushButton(button_6)
aCallbackList=OrderedCollection(a CwCallbackRec )
callData=CwAnyCallbackData(
reason -> 10
)
callbacks=nil
size=1
rec1=nil
rec2=nil
rec3=nil
[] in CwRowColumn>>#simple:clientData:callData:
self=CwRowColumn(~Edit)
aRowColumn=CwRowColumn(~Edit)
clientData=nil
callData=CwRowColumnCallbackData(
reason -> 10
widget -> CwPushButton(button_6)
data -> nil
callbackData -> CwAnyCallbackData(
reason -> 10
)
)
data=CwAnyCallbackData(
reason -> 10
)
index=6
list=OrderedCollection(a CwCallbackRec )
child=CwPushButton(button_6)
OrderedCollection>>#do:
self=OrderedCollection(CwPushButton(button_0) CwPushButton(button_1) CwSeparator(button_2) CwPushButton(button_2) CwPushButton(button_3) CwPushButton(button_4) CwSeparator(button_5) CwPushButton(button_5) CwPushButton(button_6) CwPushButton(button_7) CwPushButton(button_8) CwPushButton(button_9) CwSeparator(button_10) CwPushButton(button_10) CwPushButton(button_11) CwSeparator(button_12) CwCascadeButton(button_12) CwSeparator(button_13) CwPushButton(button_13) CwPushButton(button_14) CwPushButton(button_15) CwPushButton(button_16) )
aBlock=[] in CwRowColumn>>#simple:clientData:callData:
CwRowColumn>>#simple:clientData:callData:
self=CwRowColumn(~Edit)
aRowColumn=CwRowColumn(~Edit)
clientData=nil
callData=CwRowColumnCallbackData(
reason -> 10
widget -> CwPushButton(button_6)
data -> nil
callbackData -> CwAnyCallbackData(
reason -> 10
)
)
data=CwAnyCallbackData(
reason -> 10
)
index=6
list=OrderedCollection(a CwCallbackRec )
CwCallbackRec>>#callWith:callData:
self=a CwCallbackRec
aWidget=CwRowColumn(~Edit)
callData=CwRowColumnCallbackData(
reason -> 10
widget -> CwPushButton(button_6)
data -> nil
callbackData -> CwAnyCallbackData(
reason -> 10
)
)
CwRowColumn(CwBasicWidget)>>#callCallbackList:callData:
self=CwRowColumn(~Edit)
aCallbackList=OrderedCollection(a CwCallbackRec )
callData=CwRowColumnCallbackData(
reason -> 10
widget -> CwPushButton(button_6)
data -> nil
callbackData -> CwAnyCallbackData(
reason -> 10
)
)
callbacks=nil
size=1
rec1=nil
rec2=nil
rec3=nil
CwRowColumn>>#entry:clientData:callData:
self=CwRowColumn(~Edit)
aWidget=CwPushButton(button_6)
callbackList=OrderedCollection()
callData=CwAnyCallbackData(
reason -> 10
)
entryCallData=CwRowColumnCallbackData(
reason -> 10
widget -> CwPushButton(button_6)
data -> nil
callbackData -> CwAnyCallbackData(
reason -> 10
)
)
CwPushButton>>#callActivateCallback:
self=CwPushButton(button_6)
anEvent=an OSEvent
OSMenuItem(OSWidget)>>#callHandlers:with:
self=OSMenuItem()
handlers=#callActivateCallback:
data=an OSEvent
DirectedMessage>>#send
self=DirectedMessage (OSMenuItem(), #callHandlers:with:, (#callActivateCallback: an OSEvent))
OSEventManager class>>#runDeferredMessages
self=OSEventManager
messageAvailable=true
message=DirectedMessage (OSMenuItem(), #callHandlers:with:, (#callActivateCallback: an OSEvent))
state=true
OSWidget class>>#readAndDispatch
self=OSWidget
state=true
gotEvent=true
CwAppContext>>#readAndDispatch
self=a CwAppContext
AbtWindowSystemStartUp class(EsWindowSystemStartUp class)>>#messageLoop
self=AbtWindowSystemStartUp
lastEventTime=345053718
appContext=a CwAppContext
[] in <optimized block>(UIProcess class)>>#forkUserInterface
[] in UIProcess(Process)>>#executeBlock:withArguments:
self=UIProcess:(23/09/2019 10:16:09 AM){suspended,3}
aBlock=[] in UIProcess class>>#forkUserInterface
args=()
UIProcess(Process)>>#executeBlock:withArguments:
self=UIProcess:(23/09/2019 10:16:09 AM){suspended,3}
aBlock=[] in UIProcess class>>#forkUserInterface
args=()
UIProcess(Process)>>#newProcessOn:stackSize:withArguments:named:
self=UIProcess:(23/09/2019 10:16:09 AM){suspended,3}
aBlock=[] in UIProcess class>>#forkUserInterface
stackSize=1024
args=()
procName='(23/09/2019 10:16:09 AM)'
==============<STACK TRACE ENDS>=============