diff --git a/HOUT/hout.sql b/HOUT/hout.sql
index 99d220f4c..4c7b0a6c0 100644
--- a/HOUT/hout.sql
+++ b/HOUT/hout.sql
@@ -637,9 +637,6 @@ IS
    v_gebouw_key             NUMBER (10);
    v_verdieping_key         NUMBER (10);
    v_ruimte_key             NUMBER (10);
-   v_wp_volgnr              NUMBER (3);
-   v_wp_oms                 VARCHAR2 (30);
-   v_wp_key                 NUMBER (10);
    v_groep_key              NUMBER (10);
    v_profiel_key            NUMBER (10);
 
@@ -1358,72 +1355,10 @@ BEGIN
              WHERE   r.alg_verdieping_key = v_verdieping_key
                      AND r.alg_ruimte_upper_nr = c_ruimte_nr;
 
-            -- Persoon krijgt wp op de hierboven bepaalde ruimte.
-            v_errorhint := 'Fout bij bepalen vrije werkplek';
-
-            SELECT   COUNT ( * )
-              INTO   v_count
-              FROM   prs_werkplek w
-             WHERE   w.prs_alg_ruimte_key = v_ruimte_key
-                     AND NOT EXISTS
-                           (SELECT   1
-                              FROM   prs_perslidwerkplek pw
-                             WHERE   pw.prs_werkplek_key = w.prs_werkplek_key);
-
-            IF v_count > 0
-            THEN
-               SELECT   MIN (w.prs_werkplek_key)
-                 INTO   v_wp_key
-                 FROM   prs_werkplek w
-                WHERE   w.prs_alg_ruimte_key = v_ruimte_key
-                        AND NOT EXISTS
-                              (SELECT   1
-                                 FROM   prs_perslidwerkplek pw
-                                WHERE   pw.prs_werkplek_key =
-                                           w.prs_werkplek_key);
-
-               v_errorhint := 'Fout bij koppelen persoon aan vrije werkplek';
-
-               INSERT INTO prs_perslidwerkplek (
-                                                   prs_perslid_key,
-                                                   prs_werkplek_key,
-                                                   prs_perslidwerkplek_bezetting
-                          )
-                 VALUES   (v_perslid_key, v_wp_key, 100);
-
-               COMMIT;
-            ELSE
-               v_errorhint := 'Fout bij bepalen nieuwe werkplek';
-
-               SELECT   COALESCE (MAX (w.prs_werkplek_volgnr), 0) + 1
-                 INTO   v_wp_volgnr
-                 FROM   prs_werkplek w
-                WHERE   w.prs_alg_ruimte_key = v_ruimte_key;
-
-               v_wp_oms := c_ruimte_nr || '/' || TO_CHAR (v_wp_volgnr);
-               v_errorhint := 'Fout bij toevoegen nieuwe werkplek';
-
-               INSERT INTO prs_werkplek (prs_werkplek_module,
-                                         prs_werkplek_volgnr,
-                                         prs_werkplek_omschrijving,
-                                         prs_alg_ruimte_key)
-                  VALUES   ('PRR',
-                            v_wp_volgnr,
-                            v_wp_oms,
-                            v_ruimte_key)
-               RETURNING   prs_werkplek_key      INTO   v_wp_key;
-
-               v_errorhint := 'Fout bij koppelen persoon aan nieuwe werkplek';
-
-               INSERT INTO prs_perslidwerkplek (
-                                                   prs_perslid_key,
-                                                   prs_werkplek_key,
-                                                   prs_perslidwerkplek_bezetting
-                          )
-                 VALUES   (v_perslid_key, v_wp_key, 100);
-
-               COMMIT;
-            END IF;
+            -- Persoon (zonder wp!) krijgt wp op de hierboven bepaalde ruimte.
+            v_errorhint := 'Fout bij toewijzen werkplek';
+            PRS.movetoruimte (v_perslid_key, v_ruimte_key, NULL);
+            COMMIT;
          EXCEPTION
             WHEN OTHERS
             THEN
@@ -4011,7 +3946,7 @@ AS
    UNION ALL        -- Extra kolom zodat voorgaande kolommen helemaal getoond?
    SELECT ' ', 0, 0, 0 FROM DUAL;
 
-BEGIN fac.registercustversion('HOUT', 38); END;
+BEGIN fac.registercustversion('HOUT', 39); END;
 /
 BEGIN adm.systrackscriptId('$Id$', 0); END;
 /