diff --git a/bundle/bundle--qda.el b/bundle/bundle--qda.el
index 67d80c8f..0d7507d1 100644
--- a/bundle/bundle--qda.el
+++ b/bundle/bundle--qda.el
@@ -100,10 +100,9 @@
   (cdr (assoc category mk--qda/interview-questions)))
 
 (defun mk--qda/questions-by-lang (lang category)
-  (mapcan #'cdr
-          (remove nil
-                  (mapcar #'(lambda (x) (member lang x))
-                          (funcall 'mk--qda/questions-by-category category)))))
+  (let* ((questions (mk--qda/questions-by-category category))
+         (lang-questions (remove nil (mapcar #'(lambda (x) (member lang x)) questions))))
+    (remove lang (flatten-tree lang-questions))))
 
 ;; (mk--qda/questions-in-lang 'de (mk--qda/interview-cat 'sus))