-(defmethod perform ((o test-op) (c (eql (find-system :base64))))
- (or (funcall (intern (symbol-name '#:test-base64) (find-package 'base64-test)))
+(defmethod perform ((o test-op) (c (eql (find-system 'base64))))
+ (or (funcall (intern (symbol-name '#:test-base64)
+ (find-package 'base64-test)))