--- a/Query.st	Thu Jul 20 16:44:13 2017 +0200
+++ b/Query.st	Fri Jul 21 00:44:05 2017 +0200
@@ -264,6 +264,14 @@
 ! !
 
 
+!Query class methodsFor:'testing'!
+
+isQuery
+    ^ true
+
+    "Created: / 21-07-2017 / 00:43:54 / cg"
+! !
+
 !Query class methodsFor:'documentation'!
 
 version