diff --git a/bundle/bundle--qda.el b/bundle/bundle--qda.el
index 31fea07c..67d80c8f 100644
--- a/bundle/bundle--qda.el
+++ b/bundle/bundle--qda.el
@@ -96,11 +96,14 @@
      (en "I needed to learn a lot of things before I could get going with this system.")
      (de "Ich musste eine Menge Dinge lernen, bevor ich mit diesem System loslegen konnte."))))
 
-(defun mk--qda/questions-from-category (category)
+(defun mk--qda/questions-by-category (category)
   (cdr (assoc category mk--qda/interview-questions)))
 
-(defun mk--qda/questions-in-lang (country lst)
-  (mapcan #'cdr (remove nil (mapcar #'(lambda (x) (member country x)) lst))))
+(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)))))
 
 ;; (mk--qda/questions-in-lang 'de (mk--qda/interview-cat 'sus))