REPL Shortcut Injection

gistfile1.st

| exception |

[ #replay n:2 ]
	on: MessageNotUnderstood 
	do: [:ex | exception := ex ].

message := (exception receiver asString) , ':', (exception message selector asString).
args := OrderedCollection new.
args add: #context.
args addAll: exception message arguments.

shortcuts := REPLShortcuts new.

shortcuts perform: message asSymbol withArguments: args asArray