diff --git a/db/Experiment.pm.in b/db/Experiment.pm.in
index e9d8c1a3591e60fba93a841cd653d45c3601f16e..408bf80b5dbd1765ba9ebd3b975ed0c05a58ed33 100644
--- a/db/Experiment.pm.in
+++ b/db/Experiment.pm.in
@@ -3101,6 +3101,7 @@ sub ClearBackupState($)
 sub RemovePhysicalState($)
 {
     my ($self) = @_;
+    require Lan;
 
     # Must be a real reference. 
     return -1
@@ -3172,6 +3173,7 @@ sub RemovePhysicalState($)
 sub BackupPhysicalState($;$$)
 {
     my ($self, $directory, $regression) = @_;
+    require Lan;
 
     # Must be a real reference. 
     return -1
@@ -3277,6 +3279,7 @@ sub BackupPhysicalState($;$$)
 sub RestorePhysicalState($)
 {
     my ($self) = @_;
+    require Lan;
 
     # Must be a real reference. 
     return -1