diff --git a/Podd/THaCut.cxx b/Podd/THaCut.cxx
index 069939df..55d589b9 100644
--- a/Podd/THaCut.cxx
+++ b/Podd/THaCut.cxx
@@ -44,7 +44,7 @@ THaCut::THaCut( const char* name, const char* expression, const char* block,
   // expressions would get reparsed instead of queried. This wouldn't
   // work properly with a non-default array evaluation mode (OR/XOR).
 
-  if( vlst )
+  if( !vlst )
     vlst = gHaVars;
   if( !clst )
     clst = gHaCuts;
diff --git a/Podd/THaVform.cxx b/Podd/THaVform.cxx
index 9e2e1f45..c83842e0 100644
--- a/Podd/THaVform.cxx
+++ b/Podd/THaVform.cxx
@@ -33,7 +33,7 @@ THaVform::THaVform( const char *type, const char* name, const char* formula,
     fPrefix(kNoPrefix)
 {
   SetName(name);
-  if( vlst )
+  if( !vlst )
     vlst = gHaVars;
   if( !clst )
     clst = gHaCuts;