diff --git a/src/Refinements/Z3Node.extension.st b/src/Refinements/Z3Node.extension.st index 84b07506d..b94621eb6 100644 --- a/src/Refinements/Z3Node.extension.st +++ b/src/Refinements/Z3Node.extension.st @@ -21,7 +21,7 @@ Z3Node >> kvarsExpr [ ] { #category : #'*Refinements' } -Z3Node >> smt2Cast: aZ3Sort in: _ [ +Z3Node >> smt2Cast: aZ3Sort [ aZ3Sort = self sort ifFalse: [ self error ]. ^self ]