Class {
	#name : #Challenge,
	#superclass : #Object,
	#category : #CTF
}

{ #category : #decoration }
Challenge class >> prepare [
	Metaclass compile:'>> selector LookupError signal'.
]

{ #category : #accessing }
Challenge >> flag [ 
	| caller |
	caller := thisContext client.
	((caller class) = Squeak) ifTrue: [ ^ 'FLAG' ].
	
	^ 'Only a Squeak can do that'.
]