diff --git a/eprints1.pl b/eprints1.pl
index 1ab4eef47c13a699e5b4e6835dd32b71e420de88..4ce8e9f15dcb237d551b2d31bd2054d8e81c6555 100755
--- a/eprints1.pl
+++ b/eprints1.pl
@@ -3245,7 +3245,7 @@ sub get_thesis_data
 
     my $ts_now= Util::ts::ts_ISO3_gmt(time());
     print __LINE__, " ts_now=[$ts_now] lock_until_date=[$policies->{lock_until_date}]\n";
-    $policies->{lock_status}= 0 if ($policies->{lock_until_date} lt $ts_now); # not locked if lock_until_date is in the past
+    $policies->{lock_status}= 0 if ($row->{eprint_status} eq 'archive' && $policies->{lock_until_date} lt $ts_now); # not locked if lock_until_date is in the past
   }
 
   if ($row->{eprint_status} eq 'buffer')
@@ -4066,7 +4066,7 @@ processed even without that requirement, e.g.:
 
 =head1 NOTES
 
-=head language codes
+=head2 language codes
 
   https://en.wikipedia.org/wiki/List_of_ISO_639-2_codes
   * deu ... german (ger is only a synonym in ISO 639-2)
@@ -4074,10 +4074,14 @@ processed even without that requirement, e.g.:
 
   EPrints uses "ger" while Phaidra seems to use "deu".  Utheses first used "ger" and may have switched to "deu" in the meantime.  [TODO: checkwhat utheses really wants]
 
-=head timestamps
+=head2 timestamps
 
   https://wiki.univie.ac.at/display/ST5/u%3Atheses+-+Datumswerte+-+Relationen
 
+=head2 special cases
+
+ * kein sperrdatum (datum_sperre_year is null) && sperre is NULL: Selbsthochlader als Quelle [2020-06-30]
+
 =head1 BUGS
 
 =head2 DOI registration